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FOREWORD 


The rationale for the division into chapters in this report was to describe 
the processing of Landsat data from various viewpoints. Chapter I is a descrip- 
tion of the Landsat system, and the origin, type, and handling of its generated 
data. Chapter II is a verbal description of the analysis procedures; Chapter IE 
is a mathematical description of the analysis techniques. Chapter IV is a pre- 
sentation of the results achieved for Landsat coverage of North Alabama, while 
Chapter V is documentation of the major computer programs used in the analy- 
sis. 
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I. THE LANDSAT SYSTEM 


1-1. INTRODUCTION 

Landsat-1 (formerly ERTS-1) is an experimental satellite whose purpose 
is to investigate the feasibility of remote sensing from space as a practical ap- 
proach to efficient management of the earth’s resources. The principal disci- 
plines involved are agriculture, forestry, geology, geography, hydrology, and 
oceanography . 

For this purpose, the satellite acquires repetitive multispectral images 
of the earth's surface and transmits this raw data through ground stations to a 
data processing center at the NASA Goddard Space Flight Center, for conversion 
into black and white or color photographs and computer tapes to fulfill the varied 
requirements of investigators and user agencies. Thus, such a remote sensing 
vehicle, due to its ability to cover large areas and generate large amounts of 
data, becomes a major element in an earth survey system, such as that illus- 
trated in Figure 1. Several elements of this system will be discussed in the 
present report. 

1-2 . DESCRIPTION OF THE LANDSAT SYSTEM 

Landsat-1 was launched in July, 1972 and traverses a circular, sun 
synchronous, near-polar orbit at an altitude of 915 km. (570 miles). This orbit 
provides repetitive earth coverage under nearly constant observation conditions, 
i.e. solar times. The satellite circles the earth every 103 minutes, completing 
14 orbits per day, and views the entire earth every 18 days. Orbit specifications 
require that the satellite ground trace repeat its earth coverage at the same local 
time every 18 day period within 37 km. (23 miles). A typical one-day ground 
coverage trace is shown in Figure 2 for the daylight portion of each orbital revo- 
lution. 


The overall Landsat system is illustrated in Figure 3. The satellite carries 
a payload of imaging multispectral sensors, wideband video tape recorders, and 
the spaceborne portion of a Data Collection System . The video data is received 
at Fairbanks, Alaska, Goldstone, California, and the Network Test and Training 
Facility (NTTF) at Goddard Space Flight Center (GSFC). Video data stored on 
magnetic tapes is received by the NASA Data Processing Facility (NDPF) . The 
NDPF then performs the video-to-film conversion and correction, producing 
black and white images from individual spectral bands and color composites from 
several spectral bands. The NDPF includes a storage and retrieval system for 
delivery of data products and services to the investigators and other data users . 

The satellite system consists of the earth resources payload subsystem 
and the various support subsystems comprising the spacecraft vehicle. The 
configuration is shown in Figure 4. Control of observatory attitude to the local 
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Figure 1 . Basic Elements of an Earth Survey Information System. 
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Figure 4, Landsat Satellite Configuration 
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vertical and orbit velocity vectors within 0.7 degree of each axis is achieved by 
a three axis active Attitude Control Subsystem. An independent passive Attitude 
Measux'ement Sensor provides pitch and roll attitude data accurate to within 0. 07 
degree to aid in image location. Orbit adjustment capability is provided by a 
system of one-pound thrusters. Payload video data are transmitted to ground 
stations over two wideband S-Band data links . Electrical power is generated by 
two solar arrays, with storage provided by batteries for spacecraft eclipse 
periods . 

The earth resources payloads are the return beam vidicon (RBV) camera 
system and the multispectral scanner (MSS) . The return beam vidicon camera 
operates by shuttering three independent cameras simultaneously, each sensing 
a different spectral band in the range 0.48 to 0.83 micrometers. The viewed 
ground scene, 185x185 km. (115x115 miles) in size, is stored on the photo- 
sensitive surface of the camera tube and, after shuttering, the image is scanned 
by an electron beam to produce a video signal output. 

The multispectral scanner is a scanning device which uses an oscillating 
mirror to scan over lines perpendicular to the spacecraft ground track as shown 
in Figure 5. The surface of the earth is imaged in four spectral bands through 
the same optical system, so that optical energy is sensed simultaneously in the 
four bands. The bands lie in the solar reflected spectral region, and their wave- 
length limits are as follows: 

Band 1 0 . 5 to 0 . 6 micrometers 

Band 2 0.6 to 0.7 micrometers 

Band 3 0.7 to 0.8 micrometers 

Band 4 0 . 8 to 1 . 1 micrometers 

Bands 1 through 3 use photomultiplier tubes as detectors; Band 4 uses silicon photo- 
diodes. The cross track ground coverage of 185 km. (115 miles) is obtained as 
the flat mirror oscillates +2.89 degrees at a rate of 13 .62 Hz . As the image is 
thus swept across an array of optical fibers, light impinging on each glass fiber 
is conducted to an individual detector through an optical filter, unique to the 
appropriate spectral band. The detector outputs are sampled, digitized, and 
formatted into a continuous data stream of 15 megabits per second. The along- 
track scan is produced by the orbital velocity of the satellite, which causes an 
along-track motion of the subsatellite point of 6.47 km/sec. (4.0 miles/sec). 

The mirror oscillation frequency is such that the subsatellite point traverses 
474 meters during the 73.42 millisecond scan and retrace cycle. During each 
mirror cycle, six lines of 79 meters width are scanned, and hence the line 
scanned by the first detector in a cycle is adjacent to the sixth line of the pre- 
vious cycle. This scan pattern is shown in Figure 6. The instantaneous field 
of view of 79 meters (86.4 yards) square on the ground is delineated by the 
square input end of each optical fiber. The area sampled to form the reflectance 
data for each picture element (pixel) is 6241 square meters (1.54 acres). Along 
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Figure 5. MSS Scanning Arrangement 
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Figure, 6. Ground Scan Pattern of the MSS. 
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a scan line the sampling rate is approximately 100, 000 Hz, which results in over- 
lap of the samples along the scan lines such that the effective area covered per 
sample is 1 . 1 acres . 

1-3 . ORIGIN AND TYPE OF DATA 

The physical origin of the electromagnetic energy that is detected quan- 
titatively in the Landsat sensors is reflection of sunlight from the target scenes 
on the earth's surface. The ability to classify the measurements according to 
their origin from various objects arises from variations in the reflection as a 
function of wavelength. The physiological equivalent of this process is the re- 
cognizing of an object by its color only. 

The quantitative definition of spectral composition is often called the 
spectral 'signature', and this represents the distribution of intensity of radiation 
as a function of wavelength. Each category, species or material will in general 
have a unique distribution, and it is this distribution, or signature, that is used 
for identifying the species. Over the visible range of the spectrum, the spectral 
signature may be thought of as the color distribution of the species in question. 

Spectral signatures may be illustrated by plots of radiance intensity versus 
wavelength, ideally as is shown in Figure 7. In order to apply data analysis 
algorithms, it is necessary to represent these curves in numerical form, but 
a numerical point by point plot is not used in order to avoid data proliferation. 
Rather, a set of wavebands is selected over which the variation of spectral 
radiance is sufficiently large to permit discrimination between curves. Each 
spectral signature can then be represented as a set of numerical values that 
provide measures of the predominant spectral components present. In many 
multispectral sensor systems, the chosen separation of the wavebands is deter- 
mined by the spectral resolution of the detector arrays or interference filter. 

For analysis purposes, it is convenient to consider the set of numerical 
values derived from a single signature spectrum as a vector, and to represent 
this vector in an orthogonal vector-space whose axes are identified with the 
spectral components of the signature. This form of representation is illustrated 
in Figure 8. 

The vector space interpretation of spectral signatures is particularly 
convenient for automatic data analysis since the algorithms of pattern recognition 
and feature classification can be applied directly. Each signature may be con- 
sidered as characteristic of a certain class, species, or category. The vector 
components of any signature may be considered as characteristic features that 
enable the associated class to be distinguished from other, perhaps related, classes. 
As long as known characteristic signatures are available for comparison, feature 
vector measurements derived from remote sensor data may be sorted or classified 
by automatic decision logic according to the species from which they originated. 
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Figure 7 
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Figure 8. Spectral Signatures Interpreted as Feature Vectors 


The format of the data output from the multi-channel detector array is 
particularly convenient for computer data processing. The signal output of each 
detector is recorded on a magnetic tape, and the variation of the recorded signal 
along the length of the magnetic tape then bears a very close correlation to the 
physical content of the ground scene, and each channel recorded on the tape may 
be regarded as the record of the ground scene viewed in a different color band, 
as depicted in Figure 9, 



Figure 9. Correlation of Tape Record of Detector Outputs 
with Physical Features of Ground Scene 


The four spectral channels employed in the Landsat multispectral scanner 
lie approximately in the green, red, near infrared, and infrared ranges. Figure 
10 shows data from the four bands in a 500x500 pixel area including Huntsville, 
Alabama, acquired on November 4, 1972 . 

1-4. DATA HANDLING AND DATA PRODUCTS 

The Landsat data in distal format is segmented into four computer com- 
patible tapes (CCTs). Each tape contains identification and annotation records. 
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followed by the data in eight -bit bytes . The annotation record contains infor- 
mation regarding the conditions of exposure, such as date and time, sun eleva- 
tion, coordinates of the image center, locations of lines of latitude and longitude 
intersecting the image. Data values in the four channels from pairs of adjacent 
pixels are interleaved according to the following order of channel numbers: 

1122334 4. 

Thus, the first step in data handling is the idetnifi cation of the data segment re- 
quired, based on latitude and longitude, possibly reording to place data values 
for each pixel in channel order, and conversion to integer or decimal type num- 
bers. 


It is then necessaiy to use some means of examining the data visually in 
terms of the density levels, that is, reconstruct the image of the ground scene. 
This is to verify that the scene of interest has indeed been selected, and to locate 
specific locations and land use types for input to certain processing steps. 

One method of displaying digital data is by plotting on the computer line 
printer with certain data values being represented by specific characters. The 
darkness of the printing is increased by overprinting several characters at the 
same location. This method has the advantages of showing the values of the data 
and of allowing exact determination of the coordinates of each data value. Dis- 
advantages are poor gray level rendition and the inability to display large regions. 
An example of a printer plot is given in Figure 11, showing the Landsat data of 
the Huntsville Jetport. 

The Landsat scanner data is more easily interpreted when displayed on 
a cathode ray tube (CRT), which may be either a storage type or a TV monitor. 

In the present work, the former type, a Dicomed was used. This device is 
capable of displaying 64 gray levels, and the screen size is 2048 by 2048 pixels. 

In order to obtain photographic prints of scanner data and land use maps, 
a film writer is used. This device reproduces scan lines read from magnetic 
tape on film, with the film density being proportional to the numbers read from 
tape. An Optronics model Photowiite was used, and the film writer, tape drive, 
and film scanner-digitizer are shown in Figure 12. Prints in this report, such 
as Figure 10, were produced by this method. 

The line printer plots are a very useful output product since they can be 
obtained in the same computer run wMch has processed the data. A 500 by 500 
pixel area, such as that shown in Figure 10, can be plotted in the width of the 
printout if every fourth pixel in each direction is plotted. This allows, for 
example, immediate examination of a land use map during the process of com- 
puter classification. 
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Figure 11. Printer Plot of Landsat Data Coverage of Huntsyille Jetport 
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Figure 12. Film Writing and Scanning Equipment with Magnetic Tape Unit 
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1-5 . APPLICATION TO TARCOG AREA 


TARCOG (Top of Alabama RegLonal Council of Governments) is a coalition 
of the five counties (Limestone, Madison, Jackson, Marshall, DeKalb) located in 
the extreme northeast corner of Alabama, which was formed to better evaluate 
and respond to socio-economic problems of the area. One such problem is the 
land usage of the area, which in cooperation with NASA/Marshall Space Flight 
Center had been surveyed using low altitude (3000-6000 ft.) aerial photography. 

In addition, some RB-57 aircraft coverage (60, 000 ft.) had been obtained and 
one frame of three band photography analyzed by digital computer. The present 
study was initiated in order to evaluate the feasibility of Landsat data analysis 
of land usage in the TARCOG area, and make comparisons with the low altitude 
and high altitude aircraft coverage . Figure 13 shows the TARCOG area, and the 
RB-57 and satellite frame sizes. 
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Figure 13. TARCOG Area Showing RB-57 and Satellite Frame Sizes. 
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II . ANALYSIS PROC EDURES 


2-1. PRELIMINARY DATA HANDLING 

Multispectral scanner (MSS) data is transmitted to ground-based receiv- 
ing sites and hence to the NASA Data Processing Facility (NDPF) . The NDPF 
corrects, calibrates and formats the raw MSS data and converts it to a usable 
binary form on computer compatible tape (CCT) . The annotated and corrected 
185-km. square ground scene on the CCT is a final product of the MSS. A scene 
is made up of 2340 parallel scan lines, each containing approximately 3240 data 
samples. 

The NDPF transmits completed ground scenes to data users on four 
separate CCTs, each containing image data for one 46.25x185 km. strip. The 
images are registered with respect to spectral bands, and are calibrated using 
a calibration wedge which is introduced into the data during every other scan re- 
trace interval. The CCTs also contain, as part of the annotation record, the 
geographic coordinates of the image center and the locations of the tick-mark 
reference system. The tick-marks are located at the intersections of the scene 
edges with latitudes and longitudes at intervals of one-half degree. 

With this degree of geographic coordinate information available, it is 
possible to construct a computer program which reads the CCT and determines 
the image coordinates of an area specified by latitude and longitude bounds. 

The pixel coordinates are determined using the following five steps: 

(i) The pixel coordinates of the format center are found. 

(ii) The latitude and longitude of the format center are found. 

(iii) The latitudes or longitudes of the tick-marks and their 
locations relative to the format center are determined. 

(iv) Scale factors needed to convert projected latitudes and 
longitude differences to pixel differences are computed, 

(v) Pixel coordinates of the four corners of the area to be 
extracted are calculated. 

The segment of data thus defined may then be transferred to additional 
magnetic tape to be used in subsequent operations. This output may contain the 
reflectance measurements from each band in four adjacent storage locations 
(feature vector format) for each pixel, or may contain all measurements from a 
spectral band in separate tape files. The feature vector format is most useful 
when the four spectral measurements are to be considered simultaneously, as 
in a multispectral classification into land uses . 
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2-2 . COMPUTER CLASSIFICATION 


Classification algorithms may be defined as sequences of mathematical 
operations which determine from a set of measurements the class or type of ob- 
ject which is being measured. When the determination is done by computer, the 
process is termed automatic feature classification. Generally, measurements 
of more than one characteristic or feature of the objects in question are made 
simultaneously. In the present case, the set of measurements is the intensity 
of sunlight reflected In specified wavelength bands of the visible and near infra- 
red regions of the spectrum. Each set of n measurements is said to define an 
n-dimensional feature vector, X 2 , X 3 , . . . , x^J , which thus contains all the 

information obtained by the sensor. 

The mathematical criteria which are employed in classifying the feature 
vectors are called decision functions or discriminant functions. The particular 
method being used determines the form of these functions. The unknown para- 
meters in these functions are determined in a preliminary process called learning 
or training. A small part of the data, called the training set, is used by the 
learning algorithm. 

When the classification of the training samples is unknown, the deter- 
mination of the decision function is said to be unsupervised. The algorithm 
attempts to find trends in the data and separate the given unknown samples into 
distinct groups. 

Supervised algorithms may be employed when one is supplied with a set 
of training sample patterns of known classification. These samples are used to 
develop decision functions, which may then be used to classify unknown samples. 
The classification will be reasonably accurate if the training samples are truly 
representative of the classes and an appropriate type of decision function is com- 
puted. 


Thus, a crucial aspect of the classification problem is the selection of 
data to be used as training samples. This is generally accomplished by visual 
inspection of the imagery, coupled with additional sources of information such 
as topographic maps and personal knowledge of the area. During this process 
it may be desirable to display the imagery at various levels of magnification, 
to enhance the imagery by adjusting density levels, and to indicate on the imagery 
the sites from which data is to be extracted. 

In the present study, training data was selected from a region which was 
a small fraction of the TARCOG area, but which included the city of Huntsville, 
MSFC, the Huntsville -Madison County Jetport, Monte Sano, and a portion of the 
Tennessee River. Thus a wide range of land use categories could be defined 
within a relatively small area. Land usage in this area had been previously 
studied from aircraft photography, using manual and computer classification 
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techniques. Thus, it was possible to identify in this section of imageiy training 
sites which represent several land use categories. 


The line and sample coordinates of the selected regions may be determined 
from a CRT display of the imagery, or from a computer line printer display, 
such as that in Figure 11. The latter has the advantage that individual pixels 
are readily identifiable. 

Using the initial training site regions, a classification map may be pre- 
pared. The shape and extent of the various land use areas will be more easily 
seen on the classification map than on the input data. Hence if the training site 
boundaries are indicated on the classification map, it may be possible to adjust 
the defining coordinates so that the training data is extracted from areas whose 
land use corresponds to the desired classes. In addition, misclassifications 
may indicate that the training data was not sufficiently representative for all 
areas in the scene. In this case, training data may be extracted from additional 
regions of the scene. 

Locations of the training sites for seven land use classes are shown in 
Figure 14. The classes and locations are as follows: 


Urban 

AgTiculture 

Forest 

Wetland 

Pasture 

Water 

Barren 


City of Huntsville and Jetport terminal area. 

South of Jetport and south of Tennessee River 
near Highway 231. 

Mountains on east and south of MSFC. 
Marshes southwest of MSFC. 

Jones Valley farm and flanldng Rideout Road. 
Tennessee River 

Quai'ries northwest of Huntsville. 


In separating one class of objects from one or more other classes, it is 
desirable to de-emphasize the characteristic features that the classes may have 
in common, and to emphasize where possible the features that are unique to the 
class of interest. The most obvious first approach is to say that the distinctive 
character of an object or class of objects is the sum total of its features, some 
features being more distinctive than others in certain environments. The Linear 
Classifier concept depends upon this assumption, and aims at developing a single 
measure of a class’s composite features. This measure, the discriminant, is 
formed by adding the value of each feature (reflectance value or brightness in 
the case of multiband imagery), after each feature has been weighted according 
to its usefulness in separating the class of interest from the other classes. 
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Classification Map 


Figure 14. Locations of Training Data for Seven Land Use Classes 
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Nonpar ametric methods are so termed because parameters (such as mean 
values and covariances) of the distribution functions of the data are not used. The 
training algorithm determines the values of the weighting factors "w” to be used 
in a discriminant function of the form 

G = Wq + + W 2 X 2 + . . . + 

A set of weights is determined for each class of data, the value of a weight re- 
flecting the significance of its associated feature in separating the class from 
its companion class. Thus for each unknown feature vector, a value of G is 
obtained for each class. 

There are two approaches possible in the application of linear classifiers. 
In the first, the discriminant functions are designed such that one class may be 
separated from each of the other classes, pairwise. Then, in determining the 
class to which a particular feature vector (the reflectance values from one pixel) 
should be assigned, the value of G is calculated by substituting the values of the 
feature vector in the discriminant function for each of the classes. The class 
for which the value of G is largest is the class to which the feature vector is 
assigned. 

In the second approach, the one employed at NASA/MSFC, the discrim- 
inant functions are designed such that one class may be separated from all of 
the other classes considered collectively as one class. Unlike the first approach 
in which all discriminants are calculated concurrently, here the discriminants 
are calculated sequentially. Referring to Figure 15, the straight line corresponds 
to the discriminant function that will separate Class 4 from Classes 1, 2, and 3 
taken together. If a given feature vector lies to the right of this line, the dis- 
criminant has a positive value and the vector is assigned to Class 4. If it lies 
to the left of the line, the discriminant has a negative value, and the vector is 
not assigned to Class 4. Class 4 may then be removed from consideration, and 
a further test is applied using the discriminant function for Class 3, say. These 
tests are repeated until the feature vector is assigned to a particular class, at 
which time testing ceases, and a new unknown feature vector is called in. The 
sequential nature of testing results in a speed advantage over the parallel pro- 
cedure employed in the first approach. 

The linear classification scheme described here is combined with a 
feature selection algorithm that determines which of the features of any class 
are of greatest significance in separating that class from the others. The method 
of feature selection is based on the concept that the classification is more 
accurate if 


data values from different classes are widely separated 
(interclass distance is large), and 
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• data values within each class are closely grouped 
(intraclass distance is small) . 

These effects are illustrated in Figure 16. 

The interclass and intraclass distances are computed for each feature by 
calculating the totals of the separations between all pairs of points in different 
classes (interclass) and within each class (intraclass). The optimum is obtained 
when the interclass distance is maximized and the intraclass distance is mini- 
mized. 


After calculating the criterion for best features (based on separations 
between training data of the various classes), the feature selection values are 
combined to yield a value which determines the most easily separable class 
(Class 4 in Figure 15), for which the discriminant function coefficients (w’s) 
are then computed. 

The analysis process in the training phase is illustrated in Figure 17. 

After the training samples have been selected, they are processed by the feature 
selection algorithm EFFECT. This determines which class is the most easily 
separable from all others, and the optimum subset of features (spectral bands) 
for separating that class. This latter option may be bypassed if not many (three 
of four for example) spectral bands of data are available, but it is very useful 
if many bands of multispectral scanner data have been acquired. The dis- 
criminant weights for the most easily separate class are then calculated, using 
the algorithm SNOPAL. 

The values of the weights are determined by an iterative procedure. In 
each iteration, the value of w is changed slightly from its previous value to pro- 
duce an improved set of weights. Several options are available in the algorithm 
for terminating the iteration. Once the weights for the most easily separable class 
have been determined, the training samples for that class are removed from the 
data set, and EFFECT then determines the next most easily separable class and 
its optimum feature subset. Then SNOPAL computes the required discriminant 
function coefficients. This process of identifying an easily separable class and 
its discriminant, supressing its data and moving on to the next easily separable 
class, is repeated until a discriminant function has been calculated for all of the 
classes in the training data set. 

The training phase is completed by performing a test classification of all 
training samples. Ideally, the classifier should assign the training samples to 
the class from which they were selected by photointerpretation. If the classifier 
assigns more than a few samples from Class 4 to Class 1, for example, this will 
suggest an unsatisfactory choice of training samples, and that some of Class 4's 
training samples were inadvertently selected for Class 1. The choice of training 
samples must then be revised, and the entire training phase repeated. 
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Figure 15. Decision Function for Assigning Samples to Class 4, 
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Figure 16. Interclass and Intraclass Distance. 
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Figure 17. 


Discriminant Training Phase of Sequential Linear Classifier. 
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In the classification process for an unknown feature vector, shown in 
Figure 18, the values "G" of the discriminant functions are computed in the same 
order as the functions were defined, and the assignment is made to that class for 
which G first becomes a positive number. 
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Figure 18. Classification Phase of Linear Classifier. 
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2-3. geographic REFERENCING 


The Landsat-1 system, described in Chapter I, provided the data used 
in this investigation. Data samples are gathered along scan lines normal to the 
direction of spacecraft travel, and a ground track of width 185 km. is imaged. 
However, the resultant image does not correspond to conventioval map-making 
standards, i.e., equally spaced latitude and longitude lines with longitude ver- 
tical and latitude horizontal. In the present situation, there are three principal 
contributions to the geometric distortion. They are the non North-South heading 
of the satellite, non-uniform data sampling rates along track and across track, 
and the rotation of the earth from west to east beneath the satellite. Because 
for interpretative purposes it is mandatory to associate each Landsat resolution 
element with a precisely known geographic location on Earth’s surface in order 
to correlate the imagery with aerial photography and existing maps, the distor- 
tions in raw imagery must be corrected and the data established in a consistent 
geographic framework. Then the correlation of sequentially, seasonally or 
annually observed scenes is greatly simplified, and interpretation errors due 
to differences of image scale or orientation are minimized. Also standard 
reference data, for example political boundaries, can be overlaid on the CCT 
data as a routine processing procedure. Further, the correlation with airborne 
remote sensors, cameras and line scanners, is simplified by establishing a 
unified geographic datum. The Universal Transverse Mercator (UTM) projec- 
tion is used in the present work. 

In this system, the surface of the Earth is divided into sixty transverse 
(i.e. north-south) zones. In international usage these zones are numbered 1 to 
60. The center of each zone is called the central meridian. The relation of 
the UTM zones to the Earth’s surface is shown in Figure 19 and the shape of a 
zone is shown in Figure 20. 

Each UTM zone has superimposed on it a rectangular grid of vertical 
and horizontal lines. The vertical lines lie parallel to the meridian that runs 
down the center of each zone, and the horizontal lines run parallel to the 
equator. The basic grid lines are drawn 100,000 meters, or about 62 miles,- 
apart. These grid lines are shown in Figure 21. The squares formed by the 
intersection of the 100, 000 meter lines are usually subdivided by 10, 000 
meter lines, 1, COO meter lines, or 100 meter lines, depending on the scale 
and purpose of the map. 

The 100, 000 meter grid lines are referenced by their "northing" and 
"easting" values. The northing value is the distance of the line from the equator. 
Vertical lines are counted from the central meridian which is the 500, 000 meter 
line, those on the left of it having an easting value of less than 500, 000 meters 
and those on the right having a value above tliat. This is shown in Figure 21. 
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Two approaches may be taken to the geographic referencing problem. 

The cartographic approach consists of correcting (or adjusting) the image data 
to match an Earth coordinate system. This is convenient for the preparation of 
displays or maps. The other approach systematically warps Earth coordinates 
to match row and column coordinates in the imagery. In either case, it is nec- 
essary to find the equations of transformation between points in the image and 
locations on the ground. 

There are two methods that can be considered for determining the trans- 
formations: theoretically, by calculating the effects of all the processes involved 
in producing the image, and empirically, by comparing the image with a model 
(e.g. , a map) of the terrain. The first requires detailed knowledge of the flight 
path or orbit, attitude and motions of the sensor-carrying vehicle, characteristics 
of the sensor, and important error sources. This approach is impractical in 
all but the simplest cases. This leaves the empirical method. If it is possible 
to determine the geographic coordinates of every point in the image, an expres- 
sion for the transformation can be found exactly (assuming the requirements of 
the sampling theorem are satisfied). In any case, the geographic referencing 
problem is solved for that image. However in a practical case it is difficult to 
do more than locate a relatively small number of landmarks in the image, and 
often virtually impossible to find their exact row and column coordinates. In 
MSS data, for instance, this problem is accentuated because the instantaneous 
field of view is large and the resolution is relatively coarse. This suggests 
using a regression technique to fit a model of the transformation to the land- 
marks or control points, expressed in both coordinate systems. Very accurate 
maps are available for the United States and many other parts of the world, 
from which to obtain the geographic coordinates. 

Landmarks or ground control points (GCP) ideally should possess well 
defined characteristics of shape, should exhibit high contrast against their 
background in one or more spectral bands, and should not change materially 
in contrast because of seasonal or climatic influences . Prominent land/water 
interfaces in the infrared, and man-made constructions such as major highway 
intersections or airport runways in the green, are well suited as GCP’s. To 
pinpoint the geographic coordinates of a GCP within a Landsat scene, the CCT 
data is presented for inspection on a digital image display, candidate GCP 
regions are identified, their data arrays are extracted, magnified by a scaling 
algorithm to the point that individual resolution elements can be easily seen, and 
redisplayed. The data address (sample number and scan line number) of a single 
resolution element (pixel) within the GCP that can be associated with a unique 
geographical location on a map is then determined. Repeating this procedure for 
a number of GCP’s provides the data required to establish the transformation be- 
tween the image (pixel) and the Earth coordinate frameworks. If a digital image 
display is unavailable, this procedure can be followed, although with greater 
difficulty, using a computer line printer pseudo grey-level plot of the GCP re- 
gion for pinpointing pixel coordinates . 
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After identifying the control points in an image and determining their 
geographic coordinates, it is necessary to find the amount of geometric correc- 
tion required. In outline the method is as follows: 

The coordinates of the control points in both systems (satellite data and 
UTM coordinates) are found. With the geographic UTM coordinate taken as the 
independent variable, the equations of transformation give expected values for 
the coordinates in the image reference frame. In general, it is desirable to use 
as large a number as available of control points to compensate for errors, if 
any, between the given image and the standard reference map. Also, it is 
desirable to perform geometric manipulations with a small number of parameters. 
This results in a large number of equations to solve for a small number of 
parameters. More often than not, exact solutions for parameters do not exist 
in such cases. Therefore the parameters should be determined such that the 
error between the estimates of the control points' coordinates using the para- 
meters and their exact coordinates is minimized in some sense. The method 
chosen for solving for the fit parameters was classical Gaussian least squares, 
modified to work with vector observations. The basic generalization to vector 
observations consists of replacing the sum (over observations) of the squares of 
the deviations between model and observations with the sum of the squares of 
the Euclidean norms of the difference vectors. Then vector components are 
treated the same as scalar observations in the simpler case. 

The procedure followed was as follows: 

(i) The geographic coordinates (x,y) of control points are 

taken as the independent variable, and the picture coordinates 
(u, V ) as the dependent variable (observations), 

(ii) The image was displayed on the Dicomed display screen. 

With the aid of a map, several control points were 
identified and their approximate u-v coordinate locations 
were found. 

(iii) Previously existing image processing software was used 
to extract small regions surrounding these approximate 
locations, magnify them several times by repeating pixels 
and lines, and format the enlarged regions into a multiple- 
frame output display. 

(iv) The result was viewed on the Dicomed display, and the u-v 
coordinates of the control points were estimated as accurately 
as possible. The x-y coordinates were taken from a USGS map. 

(v) These coordinates were used in the least squares program to 
obtain the parameters of the transformation. 
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2-4. GEOMETRIC CORRECTION 


Geometric manipulation of images is needed in handling remotely sensed 
data in order to match the data obtained by various sensors and/or at several 
times with respect to a single standard frame of reference. The geometric 
transformations that need to be implemented may be simple rotations and scaling 
as in the case of aerial photographs of small regions or combinations of several 
more complex transformations as in the case of multispectral (linear or conical) 
scanner output from satellites of large areas on earth wherein the rotation and 
curvature of earth need be compensated for. The main problem involved in 
applying the transformations using a digital computer is the bulk of data one 
has to handle. For instance, in the MSS images there are over 7.5 X 10® bytes 
of data per frame in each of the four spectral bands. Data is generally supplied 
on magnetic tapes and the output is required to be on tapes. In contrast with 
point operations on image densities, geometric manipulation of images generally 
requires more than one input data record to generate one output record. Also, 
in many cases it may not be possible to contain all the input records needed to 
generate one record of output within the main memory of a computer and hence 
segmentation of input data and reassembly of output records may be required. 
Further, the sample locations in the geometrically transformed image do not 
necessarily correspond to integral sample locations in the input image. This 
requires that some type of interpolation be used for assigning the image inten- 
sity values at the output sample locations. 

Any geometric distortion of a two dimensional image in a continuous 
domain may be expressed in the form 

x’ =f(x,y) 
y’ = g(x,y) 

where (x’,y’) is the location to which the point (x,y) in the image should be 
moved. Thus a geometric distortion consists in finding (x’,y') for every 
(x,y) in an image and setting the density of the new image at (x',y’) to that 
of the given image at (x,y). Equivalently, when the inverse transformation 

X = cp (x',y’) 
y = i[f (x',y’) 

exists one could compute (x,y) for every (x’,y') and set the density at (x',y’) 
to that at (x,y) in the given image. 

^ In the case of a digitized image, it is possible that the sample point 
(xi ,y. ) in the new image does not map into any point (xj^, y^) on the sampling 
grid if the original image. Therefore it is necessary to define the image density 
at (x| , yj) in some manner. If the continuous image function is band limited and 
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the sampling fine enough, the sampling theorem can be used to obtain the exact 
density at (xj, yj). However, since this is a slow process and there is no 
guarantee that the sampling frequency is sufficiently large, some simple tech- 
niques of interpolation are used instead. Some common approaches are the 
nearest neighbor rule (causing some geometric uncertainty particularly at boun- 
daries between different types of ground cover), and bilinear or cubic inter- 
polation (leading to radiometric distortion) . 

Of a variety of models f(x,y), and g(x, y) appropriate for the character- 
ization of Landsat image distortions, it is found that a linear transformation 
between original and corrected image coordinates compensates the predominant 
distortion components. Using 23 GCP's, for example, the root mean square 
compensation error is less than the dimension of the Landsat resolution cell. 
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2 - 5 . 


SUPERPOSITION OF BOUNDARIES 


In the study of remotely sensed images for land use analysis and planning, 
it is generally of interest to determine the distribution of land use classes within 
politically delineated regions such as states, counties or cities. Therefore, it is 
necessary to first associate the boundary information of the desired type with the 
remotely sensed images and then extract the region in the interior of a certain 
political entity as required for further evaluation. In this section we shall de- 
scribe the steps involved in superposing boundaries on images and separating 
the image data into individual political entities . 

The steps involved depend upon the type of equipment available to digitize 
the boundary data. The method described below was designed for a system 
employing a microdensitometer capable of digitizing transparencies. Some of 
the steps would be obviated if a draftsman’s table with a digitizing pi otter /tracer 
attachment were employed. 

The steps required when a microdensitometer is used for digitizing are: 

(i ) Drafting 

(ii) Photographic reduction 

(iii) Digitization 

(iv) Thinning and conversion to ’’scan line intersection code” 

(v) Smoothing to assure continuity 

(vi) Finding control point coordinates in pixels and UTM system 

(vii) Determination of the required geometric transformation to 
assure that the image and boundary data are in the same coordi- 
nate system 

(viii) Application of the geometric transformation 

(ix) Thickening of boundary data (if desired) and superposition on 
image to obtain a combined picture for visual inspection 

(x) Identification of separate regions and extraction of data corres- 
ponding to each region from the remotely sensed image 

A general description of the above steps follows. 

(i) Drafting 

A standard map of a convenient size is used to obtain the desired boundary 
lines. The lines are traced in black on a translucent paper. The tracing should 
be as accurate as possible in order to assure geometric fidelity when matched 
with the remotely sensed image. 
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(ii) Photographic Reduction 


The tracing is reduced photographically to a transparency of size conve- 
nient for digitization on the microdensitometer, (It is preferable to do this rather 
than try to get a tracing of the size the microdensitometer can handle, since the 
effects of drafting errors would be more pronounced in a small size tracing.) 

(iii) Digitization 

The image on the transparency is digitized at a resolution close to or 
finer than the final anticipated resolution (in km/pixel) . This should be done in 
preparation for the geometric correction step. If the digitization is too coarse, 
most of the points after correction will have to be generated by interpolation and 
the resulting image of the boundary will be inaccurate and will show jaggedness, 
depending on the type of interpolation used. 

(iv) Thinning and Conversion to Scan Line Intersection Code 

When digitized with a microdensitometer, the data generated are the 
density values at all pixel locations witliin a rectangular region on film. Thus, 
a 25 X 25 mm^ region scanned at a resolution of 12.5 generates 2000x2000 = 

4 x 10® density values. But, when the image under consideration is a boundary 
image where most locations are blank and only the positions of a few lines con- 
stitute the relevant information, it is more efficient to store and expeditious to 
handle the boundary points' coordinates. Typically, the boundary lines in the 
above example may be represented by the coordinates of 10, 000 to 20,000 points. 

Several methods of boundary encoding are available (see [l] , for example). 
The most convenient method for our purposes is the "scan line intersection code" 
(SLIC). With this code we i-epresent the digitized boundary image by giving the 
sample numbers corresponding to the boundary locations in each row. For in- 
stance, while storing the boundary Information on a tape, each record can be 
used to represent one scan line, the record consisting of the number of inter- 
sections of the scan line with the boundary lines followed by the sample numbers 
of those intersections arranged in ascending order. The information can be 
handled in a computer memory by using two arrays, the first array consisting 
of all the column coordinates corresponding to the boundary intersections and 
the second array providing a means of finding the bounds on the addresses in 
the first array of the coordinates corresponding to a given row (scan line). As 
an example, consider a simple boundary image shown in Figure 22. A digital 
version of it is shown in Figure 23. Each grid intersection in 23 is a sample 
location, and those marked with a dot correspond to the boundary pixels. Now, 
if we were to represent the boundary image by the densities at all sample loca- 
tions as generated by a microdensitometer (for example), then the array would 
consist of 169 values (say, 0 for non-boundary points and N for boundary points). 
The same data can be represented as 13 records shown below, requiring 63 values. 
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Record No. 


Data 


1 

0 


2 

0 


3 

10, 4, 5, 6, 

7, 

4 

4, 3, 7, 10, 

13 

5 

4, 2, 7, 10, 

13 

6 

4, 2, 7, 10, 

13 

7 

4, 2, 7, 12, 

13 

8 

3, 2, 6, 13 


9 

3, 2, 5, 13 


10 

3, 2, 5, 13 


11 

3, 2, 5, 13 


12 

12, 2, 3, 4, 

5, 

13 

0 



8, 9, 10, 11, 12, 13 


6, 7, 8, 9, 10, 11, 12, 13 


Also, as two arrays in core, the same data can be represented as follows: 
Index array: 1, 1, 1, 11, 15, 19, 23, 27, 30, 33, 36, 39, 51, 51 


Data array: 


4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 3, 7, 10, 13, 2, 7, 10, 13, 
2, 7, 12, 13, 2, 6, 13, 2, 5, 13, 2, 5, 13, 2, 5, 13, 2, 3, 

4, 5, 6, 7, 8, 9, 10, 11, 12, 13 


Now, we shall consider the problem of converting the digitized data to the 
SLIC. To do this, we first need to detect the locations of boundary points. An 
adequate criterion for this is a threshold on the density values. However, the 
boundary lines thus detected turn out, in general, to be more than one pixel in 
thickness. Since in most problems involving boundaries it is desirable to have as 
thin a boundary as possible, we reduce the thickness of the lines using a thinning 
algorithm. Referring to Figure 24, the purpose of the thinning algorithm is to 
generate an approximation to the dashed line given the "thick" lines in digital 
form. After a thin boundary line is obtained, the coordinate information is con- 
verted to the SLIC . 


(v) Smoothing 

Discontinuities might occur in the thinned boundary data due to drafting 
and photographic defects or thresholding and thinning. For interior extraction 
or political entity separation, it is important that the boundary be continuous. 
Therefore, the thinned data are examined at every point for continuity and patches 
are generated between locations of discontinuity and the nearest boundary point 
(if any, within a pre-specified maximum distance). 


if 


33 


Figure 24. An Exaggerated View of Thick Boundaries 
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(vi) Finding Control Points 


To find the corrections in scale and orientation required for matching the 
boundary data with a standard coordinate system, it is necessary to establish the 
coordinates of some known locations called control points . A convenient set of 
points while handling boundaries are intersections of boundary lines. Figure 25 
shows a boundary map of the five-county area (TARCOG, in North Alabama) on 
which the wopk was performed. The control points are shown on the map. The 
ground coordinates of these points can be determined in the UTM system by 
reference to standard maps. The pixel coordinates of the same points can be 
determined by obtaining binary line printer plots of small sections of the boundary 
data including the control points and manually counting the pixel numbers . 

(vii) Determination of the Geometric Transformation 

The transformation needed to convert from the pixel numbers as obtained 
from the microdensitometer to the standard coordinate system (at a specified 
sampling interval) can be found from a knowledge of the control point coordinates. 
A parametric model is assumed depending on the types of correction required. 

A linear transformation with six parameters is sufficient to account for transla- 
tion, rotation, and scale change. The parameters are then determined by mini- 
mizing the mean squared error between the observed UTM coordinates and those 
obtained by converting the pixel coordinates using the assumed transformation. 

(viii) Application of the Geometric Transformation 

The boundary data are converted to the UTM coordinate system by using 
the transformation determined as mentioned above. A resampling problem enters 
into the picture at this point. The boundary points which have integer coordinates 
in the original system do not necessarily transform into integer sample numbers 
in the UTM system. Therefore, the transformed coordinates are approximated 
by rounding them off to the nearest integers. Also, when there is a scale change, 
the number of boundary points in the output image is not necessarily the same as 
that in the input. The points that were contiguous in the input image might trans- 
form into non-contiguous points. Thus, to preserve continuity, it is sometimes 
necessary to interpolate and generate extra boundary points. A simple approach 
to this is to transform all the input boundary points via the given transformation, 
join the output points corresponding to contiguous input points by straight lines 
and obtain integer coordinate values by rounding off. 

(ix) Thickening and Superposition 

Whereas, to extract a region within a given boundary, it is necessary to 
have as thin a line as possible, for visual presentation of boundaries on remotely 
sensed images, it is desirable to thicken the boundary lines. The data in the 
SLIC format can be conveniently used to generate thickened boundary data in the 
same format by producing new boundary points at locations surrounding each old 
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Figure 25. Boundary Map of Five TARCOG counties showing Control Points. 
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boundary point up to a given thickness. The boundary lines are superposed on 
the given image (which is of the same scale and orientation) by assigning a unique 
density to all points in the image corresponding to the boundary point coordinates . 

(x) Identifying and Extracting Individual Regions 

Each political entity can be extracted separately using the boundary data 
for the entire region in SLIC format after geometric correction. The first step 
in doing this is to identify connected regions separated by the boundary lines and 
generate a unique label for each of the regions. For example, the digital boundary 
image shown in Figure 23 leads to a "region identification map" (RIM) shown below. 

Record No. 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

3 

1 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4 

1 

1 

0 

2 

2 

2 

0 

3 

3 

0 

4 

4 

0 

5 

1 

0 

2 

2 

2 

2 

0 

3 

3 

0 

4 

4 

0 

6 

1 

0 

2 

2 

2 

2 

0 

3 

3 

3 

0 

4 

0 

7 

1 

0 

2 

2 

2 

2 

0 

3 

3 

3 

3 

0 

0 

8 

1 

0 

2 

2 

2 

0 

3 

3 

3 

3 

3 

3 

0 

9 

1 

0 

2 

2 

0 

3 

3 

3 

3 

3 

3 

3 

0 

10 

1 

0 

2 

2 

0 

3 

3 

3 

3 

3 

3 

3 

0 

11 

1 

0 

2 

2 

0 

3 

3 

3 

3 

3 

3 

3 

0 

12 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

13 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


Here, 0 is used for boundary points, 1 for the exterior and 2, 3, and 4 identify 
the interior of the three separate regions. Such a map is easy to generate from 
the boundary data in SLIC format using tests for connectivity. 

A RIM can be used to extract data corresponding to any given region from 
a remotely sensed image. For example, all points in region 2 can be highlighted 
by reading the RIM and the given image record by record and setting all densities 
to 0 except where the RIM values are 2 . 
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m. MATHEMATICAL TECHNIQUES 


3-1. PRELIMINARY DATA HANDLING 

This section describes the extraction of a geographic location from a 
computer compatible tape (CCT), given the latitudes and longitudes bounding the 
area. Since the scanning direction is not parallel to latitudes or longitudes, the 
smallest rectangular region containing the desired part of the image is determined 
using the identification and annotation data read from the CCT. 

The first step is very simple. The number of records in the CCT is a 
constant equal to 2340. The number n of pixels per record (per band) is given 
by "MSS adjusted line length" contained in the 39th and 40th characters [2] . 

Thus the pixel coordinates of the format center are given by (1170.5, (n+l)/2). 

In order to find the bounds on the region to be extracted in terms of pixel 
coordinates, it is sufficient to determine the pixel coordinates of the four corners 
of the rectangle bounded by the given latitudes and longitudes. Therefore, we 
shall describe the method for determining the pixel coordinates of a given point 
where its latitude and longitude are given. 

Let'E-N and R-P represent the geographic and pixel coordinates of a 
given point. Let (e^ , n^) and r^ , p^) be the corresponding coordinates of a 
reference point, say the format center. The satellite heading is given by the 
angle 0 between the N-axis and the R-axis (see Figure 26). 

From the equations for rotation of a Cartesian coordinate system about 
the origin, it follows that 

r - r^^ = (n - n^) cos0 + (e - Oq) sin0 

P " Po “ %)sin S'*" - Gq) cos® 

if the units of measurement are the same for the two coordinate systems. (An 
approximation is made here in that the longitudes are assumed parallel to one 
another - a reasonable assumption if the region to be extracted is sufficiently 
small and sufficiently far from the poles. Hence, the use of plane geometry 
instead of spherical trigonometry.) 

The scale factors required to convert the distances (r-rQ) and (p-Po) 
are computed as follows. The tick-marks indicate the intersections of known 
longitudes or latitudes with edges parallel to the pixel coordinate axes , Also 
the number of pixels (records) between two tick-marks along a top or bottom 
(left or right) edge can be determined. Therefore, the number of pixels (records) 
per degree of change in longitude (latitude) in the horizontal (vertical) direction 
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Figure 26. Geographic and Pixel Coordinate Systems 

can be determined from the tick-mark data. These then are the scale factors to 
be used to convert (r-rQ) and (p-Po) into increments in record and pixel numbers . 

The procedure is to first read the ID record, find r^ and Pq, then read 
the annotation record to find nQ and Cq, and the tick-mark information and con- 
vert them to floating point numbers, compute the scale factors and find the 
heading 0 and use the formulas above and the scale factors to find the record and 
pixel numbers corresponding to each of the four corners of the rectangular region 
to be extracted. Finally, these coordinates are converted into integers, the 
smaller of the bounds being truncated and the larger being rounded to the next 
higher integers . 
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3-2. COMPUTER CLASSIFICATION 


The linear discriminant functions presently being used to separate classes 
of data divide a set of data into two regions, arising from the positive and nega- 
tive results obtained when individual data samples are substituted into the dis- 
criminant function. Thus, as a starting position, it is necessary to define that 
class of data which can be separated from the remainder of the data by the ap- 
propriate decision function. Using the set of training data, the separation be- 
tween classes is determined according to the following conditions: 

1. the two clusters of class data values are widely separated 
(interclass distance (S^) is large), and 

2. data values within each class exhibit low dispersion, i,e. , 
are closely grouped (intraclass distance (S2) is small). 

In the ideal case, the intraclass distance is negligible compared to the 
interclass distance, i.e. , S2/S2 0. If the data samples of different classes 

fall in the same region, S2/S1 -» 1. In the extremely poor case, where data 
values of class 2 all lie within the extreme data values of class 1, the intra- 
class distance (S2) for the more widely dispersed class 1 is greater than the 
interclass distance (Sj) to the data values of class 2, and S2/Sj^> 1. A normalized 
figure of merit for assessing the discriminatory effectiveness of a given feature 
is defined as 


F = Exp [-S2/S1] 

an index that is suitably bounded between 0 and 1. 

The generalized distances Si and S2 are based on the average distances 
between all pairs of data samples in the class or classes involved. As a first 
step in the computation, an array D is defined whose elements are the interclass 
and intraclass distances along each feature. Assuming that an N-dimensional 
feature vector X = [Xj], i = 1 ... N, defines the sample measurements over 
M classes, the dimensions of the array are M x M x N. For classes p and q, 
containing Up and Uq samples, respectively, and considering feature f, the array 
element corresponding to the distance between classes p and q along feature 
axis f is 


Dp,q, f 


Up Up 

z |x t,i-x f,j |. 
i = l j = l ^ 


This distance element comprises a total of npUq terms. The diagonal elements 
of the distance array are the intraclass distances and are defined as 
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°p.p.f =4 A ""p.f.i ■ ""p.f.j 


Each such element comprises np(np-l)/2 nonzero terms. The various elements 
of the array D are combined to form the total inter- and intraclass distances 
among the classes under consideration. 

In the present scheme as already outlined, a linear discriminant is to be 
identified that will separate any one class from all of the remaining classes taken 
together, and the process is repeated with the number of classes under consid- 
eration being reduced by one each time. Thus, the problem of separating M 
classes is reduced to (M-1) two-class problems in which each discriminant 
hyperplane successively partitions the sample space. If class p is under con- 
sideration, the second class (q) consists of all the remaining classes (q^^, q 2 , 
qg. . .) considered together. These original data classes are now, in effect, 
subclasses of the class q. 

The total interclass distance for feature f is then the sum of the distances 
between class p and each of the subclasses and is defined by 


^l,P,f ^P,q2»f ^ ^P.qg^f 




+ D. 


The total number of individual distance terms is np (n„ + + n^ +...) = 

P ' Q2 ^3 

where n =n.+n„ + n„+... and hence the average interclass distance 
P q q ql q2 q3 ^ 

from class p to all other classes along feature axis f is given by 


®l,p,f = ^l,p,fVq 

The interclass distance for class p itself is simply the array element 

Dp. ^ f which is the sum of n^(n -l)/2 terms. 

^ P P 

For class q, the intraclass distance is the sum of all the distances in- 
volving the subclasses q^, q 2 » q 3 . . . , namely 

°q.q,t = °ql,ql,f * °ql,q2,t °ql,q3,J + ••• 

+ Dq2,q2,f + Dq2,q3,f ' 

^ ^^q3 , q3 , f ’’’ • • • 


This expression is the sum of nq(nq-l)/2 terms. 
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The total average intraclass distance for the two classes, therefore, is 

^2,p,f ^ ^p, p, ~ ^q,q,f/^<’^ “ 1) 

and the figure of merit for determining the effectiveness of feature f in separating 
class p from all other classes is 

Fp,f = Exp [-S 2 ,p,f/Si,p,(]. 

An M X N array is computed using this expression giving a figure-of- merit 
matrix that exhibits the effectiveness of all features in separating each of the 
classes present. 

In parallel with this merit figure evaluation, a further computation deter- 
mines the figures of merit between class p and each of the subclasses q^^, q2> 
q 3 . . . The purpose of this calculation is to determine whether any of the sub- 
classes are poorly separable from class p, even though the figure of merit of 
separating class p from class q may have a high value. This can occur when 
several of the subclasses are very well separated from class p and, hence, 
heavily weight the value of Fp j while at the same time one or more of the sub- 
classes qj are poorly separated from p and, hence, the classification ambiguity 
between class p and these particular subclasses q^ would be considerable. The 
smallest of these individual figures of merit is multiplied by the overall figure 
of merit defined above. Thus, the final figure of merit contains two factors: 

1. The separability of class p from the remaining classes 
considered together as the second class, 

2. the separability of class p from the nearest neighboring 
class. 

In order to determine the order of separability of the training classes, 
the figures of merit for individual features of a class are combined to form a 
single figure of merit for that class. By ordering these values according to 
magnitude, the most easily separable class is identified. 

The determination of the linear classifier discriminant functions is dis- 
cussed in the following section. 

The problem of designing a pattern classifier may in general be ex- 
pressed as one of determining the discriminant functions Gi(x), i = 1, ... M, 
such that for any pattern sample vector Xj , the inequality 

Gi(Xj) ^ 0 

. implies that Xj belongs to pattern class C j . 
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The structure of the classifier is dependent upon the functional forms of 
the discriminants and also upon the availability of a sufficient quantity of a priori 
data that adequately characterize representative samples of the patterns to be 
classified. As long as the assumption may be justified that the pattern classes 
can be separated by a linear hyperplane, a linear discriminant function leads to 
the simplest structure of classifier. In this case, a variety of techniques exists 
for determining the actual structural properties of the classifier. [3] 

In multiclass problems, a linear classifier may be applied in either a 
parallel or a sequential mode. In the parallel mode, the discriminant functions 
for a given sample vector are computed simultaneously, the largest resulting 
value identified, and sample assignment is made to the class corresponding to 
the largest discriminant. The resulting classifier is cumbersome, since the 
discriminant for any one class must be capable of separating that class from 
each other class taken individually, and requires M(M-l)/2 linear segments 
when M classes are present. In the sequential mode, the classifier structure 
is simpler since sample classification into M categories is performed by a 
sequence of (M-1) dichotomies, and each discriminant is required only to 
separate its corresponding class from all other classes taken together. 

It is well known that a dichotomous linear classifier or Threshold Logic 
Unit (TLU) defined by the discriminant function 

N 

G(x) = Wq + T. w^xi 
i=l 

exhibits the following properties: [4] 
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1. The classifier separates patterns by a hyperplane decision 
surface in measurement space, 

2. The hyperplane has an orientation given by the weight values 

w^, W2, . . .Wj^. 

3. The hyperplane has a position proportional to Wq. 

4. The distance from the hyperplane to an arbitrary pattern 
vector Xj is proportional to the value G(Xj). 

Given two distinct classes of patterns, therefore, classifier structural 
design reduces to the problem of determining (a) the orientation and (b) the posi- 
tion of the separating hyperplane. In general, these quantities must be derived 
iteratively from information contained in the distances of mi sclassified samples 
from a trial hyperplane. 

In the system reported here, the discriminant functions are determined 
by employing a gradient procedure, the Ho-Kashyap algorithm, [5, 6] that iter- 
atively minimizes the least-squared classification error over the representative 
sample classes or training classes. 

In the case in which two pattern classes p and q are present, containing 
respectively n^ and nq N-dimensional pattern vectors X, the discriminant func- 
tion is 

G(Xpj) = Wo + w'^Xpj = dpj, 

and 

GP^qj)=Wo + "'TXq. =dq., 


j = 1 n, 

j = 1 n 


where 

w"^ = transpose of the hyperplane weight vector (w^, - 

The values d„j and d^j are measures of the perpendicular distances of 
the respective sample patterns from the separating hyperplane. The above 
np + n^ equations may be expressed as 
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or, more compactly, 

A O' = d 

where the matrix A of dimensions (np + nq) x (N + 1) defines the entire set of 
patterns, the (N + 1) vector a defines the separating hyperplane, and the (np + nq) 
vector d defines the pattern-hyperplane separations, to within a normalization 
factor. The feature vectors of class q are negated to ensure A o' > o. 

The components of d are positive or zero in the ideal case of totally 
separable patterns although in practice this condition is unattainable because of 
misclassification due to imperfectly separate pattern clusters. The optimum 
hyperplane, however, will minimize the number of misclassifications, i.e., will 
minimize the number of elements of d having incorrect sign, and will therefore 
minimize a classification error vector e = (3 - d), where 3 is a (np + nq) vector of 
positive constants. The minimization criterion, of course, is arbitrary, but a 
quadratic criterion is advantageous since a steepest-descent minimization procedure 
results in a linear recursion relationship. Therefore, let 

J = 1/2| ! 3 - d I |2 = 1/2| 1 Ac^ - p 1 |2 
The condition for minimum J is given by 

dJ/<3o'=A'^ [Aof - 3]=0, 3>0 
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and for a given 0, the corresponding hyperplane is determined by 


a = [aTa]-1 aT^ 


Since is initially an unknown positive vector, it must be determined 
iteratively from the relation 

j8(k+l)= )8(k) + 50; 0(0) arbitrary, k = iteration index. 

Logically, to minimize J, the iteration increments 80 should be proportional to 
the gradient dj/d0. Since 


dj/d0 |^(k) = d(k) - A Of (k) 

several possibilities arise due to the constraint 0 > 0. 

1. dJ/d0 = 0, then 0(k) - A a (k) =0, the ideal 
solution 

2. dj/d0 > 0, i.e. , /3(k) - A a (k) > 0, henoe an increment 
50 will tend to increase the classification error vector, and 
preferably 50 = 0. 

3. Sj/d0 |^(k) <0, i.e. , 0(k) - A a (k) <0, hence a positive 
increment 5 0 proportional to the gradient may be made . 

The rationale for incrementing 0 therefore is 

S0 = P La <k) - )3(k) + |Aa (k) - 0(k) || = 0, dJ/J0 > 0 

= 2P,dJ/d0<O 


where p is a positive constant vector. 

The Ho-Kashyap training algorithm thus may be summarized as follows 

1. a (0) = [a^a]“^ AT/3 (0); (0) > 0, otherwise abribr ary 
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2. j5(k^l) = /3(k) + P I A« (k) - /5(k) + | A a (k) - /3(k) || 

3. «(fcH)= [aTa]-1 aT fi(k+l) 

= « (k) + P [aTa] aT |a« (k) = %)+ |Aa (k) - ]8{k) || 

The convergence properties and other details of the algorithm have been 
discussed elsewhere. [6] 
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3-3. GEOGRAPHIC REFERENCING 


Aside from simple rotation and scaling, there are three categories of 
geometric distortions that may be present in remotely sensed image data. First, 
there are effects due to geometry. Primarily, these are the result of projection 
of features from the curved surface of the earth into the image plane. This may 
also include the map projection involved; the map coordinate system of primary 
interest in this document is the Universal Transverse Mercator (UTM) projection. 
The point of view incorporated in the mathematics to be developed may be illus- 
trated by assuming that a set of geographic grid lines are painted on the ground 
and transformed into image coordinates by the sensor (and by the equations to be 
developed). Other distortions are due to dynamics - the motion of the satellite, 
and rotation of the earth. Then, there may be distortions introduced by the 
instrumentation. For example, in the case of a scanning imager the relationship 
between position in the projective image plane along a scan line and the data stream 
itself may not be linear. (In fact, the ground trace of a scan line may not be a 
straight line.) Another possible instrumentation effect is a direction-dependent 
scale factor. 

It will be seen that the distortions produced by some of these causes are 
considerable, while others are (more or less) negligible. Fortunately, the big 
distortions will also turn out to be the easiest to solve for. It will be seen that 
a simple mathematical model of the coordinate transformation provides accuracy 
high enough for many uses. 

It will be assumed henceforth that geographic coordinates of points on the 
earth’s surface are in the UTM system. Many projections are used in an effort 
to display the curved surface of the earth on a flat map, all necessarily involving 
some distortion. Mercator projections have several useful properties. For one, 
they are conformal. So, taking any small area, the shape of the regions is the 
same as on the globe. (The shapes of large areas are distorted because the 
scale is position-dependent.) Also, standard Mercator projections are the only 
ones in which lines of constant compass heading (rhumb lines or loxodromes) 
appear as straight lines. This makes them useful in navigation. A standard 
Mercator projection is related to a projection from the earth's surface onto a 
cylinder tangent at the equator. Parallels are horizontal and meridians are 
vertical. Meridians are equally spaced, while the spacing between parallels 
veries as the secant of the latitude. 

The transverse Mercator projection turns the projection system (or the 
earth ) 90o. It is related to a horizontal cylinder tangent along a meridian. A 
standard meridian great circle replaces the equator, and the zone on either side 
of that meridian is fairly well represented. The UTM system is a collection of 
transverse Mercator projections. In the UTM system, the earth is divided into 
60 zones bounded by meridians whose longitudes are multiples of 6® west or 
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east of Greenwich. The zones are numbered sequentially, beginning with 1 for 
the zone from 180^ W. to 174® W. , and proceeding eastward. The origin of 
coordinates for each zone is at the intersection of the central meridian of the 
zone and the equator. Distances in UTM coordinates ("easting" and "northing") 
are measured in meters. The central meridian is given a "false easting" of 
500, 000 meters so all easting coordinates are positive. There is no false northing 
in the Northern Hemisphere; in the Southern Hemisphere a false northing of 
10, 000, 000 meters is assumed. The latitude limits are 80® N. and S. (A different 
projection must be used in polar regions.) UTM coordinates of a point on the 
earth's surface consist of the zone number and the easting and northing coordinates. 

The equations sought to account for the geometrical effect of projection 
would relate picture coordinates to UTM coordinates. However, the mathematics 
involved is quite intractable, and it has not been found possible to obtain such 
equations except in a form whose complexity conceals their content. It is some- 
what easier to write a sequence of equations describing the situation. The 
following equations are taken from Reference 7. (Although they refer to satellite 
observations, only a change in terminology is needed to apply them to aircraft.) 
They relate latitude 0 and longitude X to x and y, Cartesian image coordinates 
with origin (corresponding to the satellite subpoint) at the center of the image. 

The subscript SP will be used to refer to the subpoint (picture center), and P will 
be used to designate the coordinates of an arbitrary point. Figure 27 illustrates 
the situation being described. A sperical earth is assumed. Also, the line of 
sight of the sensor is assumed to be straight downward. 

The plane of the Landsat orbit is inclined at an angle of 8. 906^(0. 1554 
radian) from a polar orbit. With reference to Figure 28, the equatorical in- 
clination i is 8i, 094®. Because of this inclination, the satellite crosses 
meridians of longitude with increasing frequency and at increasing angles at the 
higher latitudes. The heading of the satellite relative to the local longitude line 
(azimuth) is obtained by applying the law of sines to the shaded spherical triangle 
in Figure 28. Noting that the two sides which are also longitude lines have arc 
lengths related to angles of 90® and 9OO-0^p, we have 


or 


sin (180 -H) 
sin 90 


sin g 

sin (90 — 0 gp) 


sin H 


sin £ 
cos 0gp 


0. 1548 
c®s 0gp 


The following sequence of equations relate the subpoint latitude and longi- 
tude (0,^ )sp to Cartesian coordinates in the image plane, (x,y). 
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Figure 27. Orientation of picture along Subpoint Track or Heading Line. [7] 



Figure 28. Azimuth of the Heading Line. [7] 
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Applying the law of cosines to the spherical triangle in Figure 29, we 

obtain 

cos 6 =! cos(90 - 0gp) cos(90 - 0p) + sin(90 - 0gp) sin(90 - 0p) cos A?i 

= sm 0 gpsln 0 p + cos 0 gpoos 0 gp cos(\p - \gp) 

and by applying the law of sines, sin a = cos ji^gp sin (Xp - Xgp). 

sin 8 

The transformation from ( 6 , Q?) to the nadir angle ^ subtended at the 
satellite by 6 and the image plane azimuth measured from the heading line 
is illustrated in Figure 30. The transformation is 


tanri 


R sin 6 

R(1 - cos 6) + H) 


il/ = O' - or* . 


As illustrated in Figure 31, coordinates (ri, ijj) transform to Cartesian 
coordinates in the image plane according to 

X = (f tan ri) sin ij/ 
y = (f tan r\ ) cos . 

In these equations f is a scale factor related to the field of view of the imaging 
device. The y axis is along the heading line and, as mentioned above, the 
origin of coordinates is at the image center (the image of the subpoint). 

The equations that connect the UTM system with latitude and longitude 

are 


E 


sin ^ 


[sin (X - cm) cos 0] 


N 


ck- sin 


sin0 

cos (E/cxy 


where E is the easting coordinate, N is the northing coordinate, of = 0.9996R, 
and cm is the longitude of the central meridian of the UTM zone. These equa- 
tions are also specialized to a spherical earth, and do not show the false easting 
(and false northing in the Southern Hemisphere) that must be added. 

A large effect on the geometry of the satellite image is the rotation of 
the earth. The earth’s rotation causes the heading of the ground track to 
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Figure 29. Transformation from Latitude -Longitude to Great Circle-Azimuth. [7] 




Figure 30. Transformation from Great Circle-Azimuth to Image Nadir- Azimuth. [7] 
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deviate, and produces skew in the image. The earth’s rotation causes the plane 
viewed to move eastward, so successive points along the ground track are far- 
ther and farther to the west of where they would be in the absence of earth rota- 
tion. During the scan period of 33 msec. , a point at the equator is displaced 
due to earth rotation by approximately 15 meters. During the 25 seconds re- 
quired to scan a frame, the shift at the equator is 13, 500 meters, and decreases 
as the distance from the point on the earth's surface to the earth's axis, which 
is proportional to the cosine of the latitude. Referring to Figure 32 [s] the dotted 
meridian of longitude through S rotates to point Sq which is a subsatellite point 
at position given by latitude <t>, longitude Xg. Thus the satellite views the point 
S on the earth's surface, located a distance A from the point Sq which would 
have been viewed in the absence of earth rotation. The effective satellite track 
is that through S, which has heading H greater than the original heading Hq. 

The distance A varies as the angular velocity of the earth and the cosine of 
the latitude, and the distance Ax covered by the satellite during the same period 
of time varies as the velocity Vg of the satellite. Hence 


A 

Ax 



cos (t> 


where V^^/Vg = 0.0717 for Landsat -1. 

In the MSS image (Figure 33), point S on the earth's surface appears 
at point Sq due to west-to-east movement of the earth's surface by a distance A 
while the satellite covers a distance Ax, and hence is scanning along the line 
through Sq. Lines of latitude are rotated by the local heading angle, Hq, plus 
an additional amount dH due to the earth's rotation. The change in position A 
has components dx (along satellite motion) and dy (along scan directions) . In 
the practical case, for small heading angle, dx is small and the effect is that 
successive scan lines cover a portion of the earth farther and farther to the west, 
and skew is introduced into the resulting image. 

The apparent change in heading dH can be determined by writing- 


tan dH = 


A 

OS 


A 

Ax 

1 + A 
Ax 


cos Hj^ 
sin Hq 


using OS = dx = A sin Hq. 

COS ^^0 

Substituting for A/Ax in terms of earth and spacecraft velocities. 
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perspective center 



Figure 31. Transformation from Image Nadir-Azimuth to Cartesian Coordinates. 



Figure 32. Effect of Earth Rotation on Satellite Track. 
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tan dH = 


Ve 

Ve 


COS <j> cos Hq 




V, 


cos <J) sin Hq 


Vi7 

cos <J» cos Hq. 

V o 


For the latitude (<j> = 34.750) of Huntsville, Alabama, the heading Hq with respect 
to the local meridian is given by 


Ho 


sin“l 


sin i 
cos<j» 


10 . S6^ 


using 8.906° as the polar inclination of the orbit [oj . The skew angle dH is com- 
puted to be 3. 27°. 


The locations of the scan line and pixel axes in the UTM system on the 
ground are shown for rotation and skew in Figure 34. The correction for rotation 
by the heading angle Hq is 


x’ = -E sin Hq - N cos Hq 
y’ = E cos Hq - N sin Hq . 


The correction for skew, assuming scan lines in an east-west direction, is 


x 


M 


y 


II 


x’/cos dH 

x' tan dH + y’ = x' 


sin dH 
cos dH ^ 


Substituting for x’ and y’, we obtain 


X 


II 


-E sin Hq 
cos dH 


N cos Hq 
cos dH 


y” - 


“ 

sii 


-E [sin Hq sin dH - cos 
cos dH 


Ho] -N p 


"N [cos Hq sin dH + sin 
cos dH 


in Hq . 
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'.otaLion and Skew. 


The transformation from the ground into the image pixel coordinates becomes 


X _ 1 - sin Hq -cos Hq 


V 

+ 

Xo 

y cos dH cos (Ho+ dH) -sin (Hq+ dH) 


N 


yo 


where x is the line count coordinate, y is the scan line point count coordinate, 
and, from right to left: Xq and are the components of an origin shift vector 
(so the first point in the first line can have the coordinates (x,y) = (1,1)), E 
and N are the easting and northing UTM coordinates, Hq is the nominal heading 
angle, and dH is the skew caused by the earth's rotation. Both the E - N and 
x-y coordinate systems are right-hand systems; in the image, the line count 
X increases downward, while the point count coordinate y increases to the right. 
Although dH does depend on Hq, it is not completely determined by Hq; it also 
depends on the satellite's angular velocity, the earth's rotational rate, and the 
latitude, according to the previous expression for tan dH. 

The significant thing about the transformation matrix that has been 
obtained, from the point of view of this discussion, is that for one image the ele- 
ments of the matrix are (almost exactly) constants. (Hq and dH change due to 
their latitude dependence, which changes by 1-2/3^ across a scene.) Further, 
an arbitrary 2 by 2 matrix with constant elements can be assumed to be of the 
form given in the transformation. 

Implicit in the transformation is the assumption that equal distances 
along a scan line correspond to equal distances on the ground, anywhere along 
the scan line. This may not actually be so. The multispectral scanner carried 
on Landsat will be chosen as an example. That scanner is an electromechanical 
device with scanning performed by a rotating mirror, swinging back and forth 
(with no imaging performed during the ’back" part of the motion). It is clear 
that, if the angular rate of the mirror is constant, the velocity of the intercept 
of the line of signt with the ground is not constant. (The combination of this 
with the forward motion of the spacecraft causes the ground sweep to be slightly 
S-shaped.) Since the maximum angle of sweep away from the nadir is small, 
this effect is quite small. In fact, the angular rate is not exactly constant 
during the sweep. The velocity profile is slightly sinusoidal. The effect of the 
latter is somewhat greater than that of the former in the case of the Landsat 
scanner. Other small effects, such as the angular bend due to the change in dH 
across a scene, are discussed in Reference [10]. Effects such as these can be 
accounted for by making the matrix elements functions of position. However, 
the constant-matrix formulation is at least an excellent approximation, so its 
use in the geographic referencing problem will now be described. 
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The transformation 
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is completely determined if the elements of (a^j) and xqjYq are known. One 
approach to geographic referencing could be to compute the transformation from 
orbit parameters and similar information . Then inversion of the transformation, 
as long as (aij) is not singular, would give the geographic coordinates corresponding 
to every point in the picture. 


However, this approach has serious weaknesses. Because satellite 
velocities are in the range 5-10 km/sec, a rather small ephemeris error could 
cause a significant location error. Also, the approach assumes that there are 
no attitude, pointing, or motion errors. Those, as well as the nonlinearities 
discussed in the preceding section, could cause location errors or have the result 
that values ay different from those calculated actually characterize the transformation. 


There is an approach circumventing these difficulties. The transformation 
contains six unknown parameters: a^^, a^g’ ^2’ ^0’ ^0' t»oth sets of 
coordinates (x,y) and (E,N) are known for at least three points (six components), 
the unknown parameters can be solved for. If three points are used, the solution 
is algebraic. If there are more than three points, the resulting set of equations is 
overdetermined. In this case, a method such as least squares can be used to solve 
for the six unknowns. The latter approach is preferable; the influence of modeling 
and observational errors is minimized when a sufficient number of judiciously 
located "control points" (known points) is used. 


Following is an outline of the well-known classical generalized least 
squares method. Suppose N observations are made of some "observable" y, and 
y is assumed to have the form 


n 

y(x) =23 n < N 

k=l ^ ^ 


( 1 ) 


The least-squares assumption states that the "best" estimate y of y minimizes 
the function 

N 

Q = Z) w- (y. - y.)2 (2) 

i=l 
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where is the ith observed value of y, is the value of (1) at x=Xj with 
some set of values assigned to {a^^), and {wj} is a set of weights. The resulting 
equation for the set of best estimates of the coefficients a]^ is, in matrix 
notation, 


a = [f’ W f]"^ F' Wy (3) 

Here y is the (column) vector whose components are y^, W is the matrix whose 
diagonal elements are Wj and whose off-diagonal elements are zero, F is the 
matrix whose rows are J’, the transposes (row vectors) of the set of vectors 
whose elements are fk(Xj) (one vector for each x^), and F’ is the transpose of 
F. If y(x) is not a linear function of the fit parameters {a,^) , the formulation 
can still be applied. The expression for y(x) is linearized by expanding in a 
Taylor series and retaining only the leading terms, and then proceeding similarly. 
Because of the approximation made, the solution is iterative. An equation similar 
to Equation (3) gives each successive estimate of a, where the right-hand side 
depends on the result of the previous iteration. 

The transformation is linear in the six parameters to be adjusted by 
the fit, so an iterative formulation is not necessary. However, both the depen- 
dent and independent variables are vectors, whereas Equations (1) - (3) only 
considered scalars . Fortunately, the generalization from one to several dimen- 
sions is straightforward. There is essentially no change for the independent 
variable, which only appears in the equations indirectly, as a summation index 
labeling points at which observations are made. The dependent variable causes 

no more trouble. It is perfectly logical to minimize a function of the vector 
— ) 

(the deviation between the observed quantity and its estimate at the ith obser- 
vation), such as 

N 

Q = Z (4) 

i=l 

Performing the steps of the analysis shows that Equation (4) treats components 
of vector observations, for all observations, in the same way that Equation (2) 
treats scala.r observations. Equation (4) is a straightforward generalization of 
(2) to several dimensions. Another simple change puts the treatment of all 
components on an equal footing, whether they are the components of the same or 
different error vectors. It will be noted that, in Equation (4), all components 
of one vector are given the same weight. TMs is an unnecessary restriction, 
and it actually simplifies the mechanization of the equations to remove it and 
allow each component to have a different weight. Suppose the vectors have M 
components, labeled by j (j = l, 2, ..., M), and define m = (i-l)M + j (i labels 
observations, i = l, 2, . . ., N). Then Equation (4) can be generalized to 
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( 5 ) 


NM 

Q = w s ^ 

m=l 

where the first M terms apply to the first observation, the second M to the 
second observation, etc. Then a computer program implementing Equation (3) 
can be used to perform the solution of a multi -dimensional regression problem, 
with only some changes in indexing. 

In order to solve for the parameters of the transformation by the 
method just described, it is necessary to know the coordinates of several points, 
called "control points," as accurately as possible in both the UTM and the scan 
line-point count systems (the latter is called the pixel coordinate system). Con- 
trol points can be any features that can be readily identified, such as highway 
intersections, projecting tips of islands or peninsulas, ends of bridges, distinctive 
buildings, etc. The UTM coordinates of control points can be found quite accu- 
rately by reference to standard maps. 

Accurate determination of pixel coordinates is more of a problem. For 
the case of the scanner carried aboard Landsat, for example, an error of a few 
pixels corresponds to several hundred meters on the ground. Although the least 
squares fitting may absorb some error, it is unwise to rely on this. (In particular, 
systematic errors in the same direction will not be removed by the least squares 
process.) It is highly desirable to locate control points to the nearest pixel. Un- 
less special equipment capable of making highly accurate measurements on small- 
scale imagery (small enough so that the eye blends pixels together) is available, 
this requires enlargement sufficient to permit the discrimination of individual 
pixels. As is discussed below, it is useful to employ some image enhancement 
techniques in addition to simple enlargement. 

The procedures to be described are illustrated in Figures 35-37. Figure 
35 shows a portion of (one band of) Landsat frame covering part of North Alabama. 
The squares marked on it indicate small regions containing distinctive features 
to be used as control points. The next two figures concentrate on one of those 
regions (the area around Guntersville, Alabama). Figure 36 shows the result of 
enlarging the image of the small region by repeating each pixel 15 times in both 
dimensions. (Approximately the same effect would be produced by photographic 
enlargement.) It is seen that the blockiness of the image - which makes it easy 
to count pixels - tends to interfere with the recognition of features. When one 
is sufficiently far from the picture, the eye smooths out the bloclciness; however, 
then it is impossible to count pixels . 

It would appear that smoothing the image would help. Since the 
effect in general of smootliing is to assign different values to adjacent pixels, 
where each pixel in the enlarged image corresponds to a fraction of a pixel in 


61 


















'■(*■ 'a' 



62 


Figure 35. Locations of Ground Control Points for the TARCOG Region 




Figure 36. Enlargement of One Region by Pixel Repetition 
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the original, smoothing is equivalent to an increase in resolution. The "right" 
way of achieving this is to use the sampling theorem for- interpolation to obtain 
the intermediate values. The implementation of the appropriate formula is slow 
computationally, so it is desirable to use approximations requiring less com- 
puter time. Figure 37 shows the result of using a bicubic (two-dimensional 
cubic) interpolation formula approximating the "right" expression to perform 
the enlargement. In addition, linear density stretching has been applied to 
effect contrast enhancement. 

Working with enlarged imagery, a small measurement error corresponds 
to only a fraction of a pixel in the original. So it is feasible to locate control points 
in pixel coordinates to the nearest pixel. Then, with control point locations in both 
coordinate systems, the least squares solution for the transformation parameters 
can be performed. It may then be found that the residuals at some control points 
are excessively large. This situation may persist at a few points even after all 
errors that can be accounted for have been corrected, due perhaps to errors in 
the maps used. Such points should be discarded and the solution repeated. (Possibly, 
subsequent analysis will explain the discrepancy.) The solution is relatively in- 
sensitive to the number of points used, unless that number is close to the minimum. 

It is appropriate to mention here that these methods may only need to be 
used the first time geographic referencing is applied to a scene. For other obser- 
vations of the same scene - for example, subsequent Landsat passes - it may be 
possible to avoid repeating all of the same steps. Instead, small regions surround- 
ing the control points (whose locations are known) from the first image can be used 
as templates to search for the locations (pixel coordinates) of the control points in 
the other observations. Fast sequential methods for doing so exist. [11, 12] 
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3-4. GEOMETRIC CORRECTION 


The transformation from ground or XJTM coordinates to image pixel 
coordinates inay be used to determine the pixels required in constructing an 
image in conformance to a UTM map projection. For every UTM grid position 
(typically at 50 meter spacing) the corresponding pixel coordinates are calcu- 
lated, and the density at that point becomes the output pixel density. In general, 
the calculated pixel coordinates are not integers, i.e. the location is between 
image pixels. Hence, the density must be interpolated from the neighboring 
pixels. Three interpolation methods will be presented. 

For nearest neighbor resampling, the pixel value closest to the position 
of the correct image pixel is chosen for the result of the interpolation operation. 
In other words, the coordinates (x’,y') of the desired pixel are computed by 
rounding off the computed coordinates (x,y) to the nearest integer, using 

x’ = X + 0. 5 
y’ = y + 0.5. 

This leads to a position error in the nearest neighbor resampled image as large 
as + 0.5 pixel spacing. However, an advantage is that the magnitudes of the 
samples are retained exactly. 

The bilinear interpolation method scales the output value linearly be- 
tween the density values of two neighboring pixels. If the neighboring pixels have 
densities A and B, then the scaled density at a distance Ax from A is 

= A + Ax (B-A). 

In two dimensions, the input values are the four corners of the square containing 
the calculated pixel location. If A and B are the densities of the top two corners 
and C, D of the bottom, the interpolated output along the bottom line is 

Qg = C + ^x (D-C). 

The values and Q2 are then interpolated in the orthogonal direction to give 
the final result: 


Q (Q2 ” Qi) • 


For spatial frequency band-limited data, the ideal interpolation function 
is sin (x)/x. A continuous signal can be sampled at discrete intervals and then 
the sin (x)/x filter can be applied to the discrete data to completely reconstruct 
the continuous signal. This can be done provided the sampling frequency meets 
the Nyquist criterion, i.e. it is at least twice the highest spatial frequency. 
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However, this function has significant magnitude until very high x, requiring an 
impractically large number of terms (> 1000) for each interpolated value. In 
addition, Landsat MSS data is not band-limited, but in fact contains aliasing errors, 
which are not removable after resampling without severe resolution degradation. 
Thus a limited extent approximation is made to this function. 

The cubic convolution function is an approximation to the sin(x)/x func- 
tion, maintaining the main positive lobe and the first negative lobe on either 
side. No term beyond x = 2 exists. The functions are shown in Figure 38. In 
these graphs the x axis can be taken as distance from the resample location 
to the discrete data locations and the y axis is the response value. The equa- 
tions of the cubic function for the two lobes may be expressed as 

f^ (x) = aj^ |x3 I + b-j^x^ + c-j^ |x I + dj^ 0< |x|^ 1 

f 2 (x) = U 2 |x^ I + b 2 x^ + C 2 |x I + d£ 1 ^ |x |< 2 . 

The eight coefficients may be determined by applying the following eight con- 
ditions: 

fl (0) = 1 
fl (1) = 0 

f2 (1) = 0 

f2 (2) = 0 
f' (0) = 0 

fi (1) = (1) 

f'i (0) < 0 

fg (1)>0. 

The cubic convolution polynomials then become [is] 

f^(x)= jx|^-2x^ +1 0^(x|^l 

f 2 (x) = -|x|^ + 5x^ - 8|x|+4 ls|x|^2. 

Cubic convolution is accomplished using a 4 x 4 pixel subimage about the re- 
sample location. First, a vertical axis is passed through the resample loca- 
tion. Next, four horizontal axes are made through the four rows of pixels. At 
the intersection of the vertical axis and each of the four horizontal axes an inter- 
polation value is computed. Finally, these four interpolated values are reinter- 
polated along the vertical axis to produce a value at the resample location. The 
interpolation formula above is used to do each of the five interpolations. 
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Figure 38. Interpolation Functions for Resampling. 
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3-5. 


SUPERPOSITION OF BOUNDARIES 


The mathematical details of some of the steps described in Section 2-5 
are presented below. 


(i) . Thinning and Conversion to SLIC 

Let P^. be the density at the point (i, j) in the digitized boundary image 
produced by the microdensitometer. Then, the values p^^j are generally avail- 
able as a sequential file consisting of several records, the ith record consisting 
of 


{Pij |j = l, , J] for i = 1, . . . , I. 

Now, let a threshold t be selected such that all points in the image satisfying 
Pij t can be decided to be boundary points . The boundary data may then be 
compressed by setting single bits to ”1” at the boundary positions. The boundary 
lines were thinned by a peeling algorithm which remains outer layers of thick 
lines while ensuring that connectivities are preserved. 

To decide whether a particular boundary point should be deleted (i.e. the 
bit corresponding to it changed to 0), we examine a 3 x 3 neighborhood centered 
around the point. Consider the array 

a b c 
d e f 
g h i 

where each letter represents a binary pixel. It is to be decided whether e, which 
is presently equal to 1 should be changed to 0. The conditions for a 'top peel' 
will be derived below and those for peeling from the other directions follow by 
symmetry . 

First of all, e should be a top boundary point. That is, there should be 
no boundary point directly above e and there should be a boundary point below 
e. Therefore b = 0 and h = 1 are necessary conditions. Suppose b h = 1. (Here, 
b denotes the complement of b). Then, we need only check whether e is a 
nonessential boundary point, that is, whether two O's in the 3x3 array which are 
disconnected will stay disconnected where e is made 0. Connectivity, in this 
context, is defined as the existence of a path not including I's and consisting only 
of horizontal and vertical segments. 

Now, it is easy to see that e is essential if and only if ad = 1 or cf = 1. 
Therefore, the condition for a top peel is that 

bh (a+d) (c + f) = 1. 
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Equivalently, to perform a top peel we set 
e = e (b + ii+ad+cf). 

It is convenient to implement the above equation by employing bit manipulation 
routines operating on pairs of 32 bit words, thereby performing the top-peel 
operation in parallel on 32 pixels. This is done by using the "current" array 
in place of e, the "previous" array for b, the "next" array in place of h. Also, 
the previous, current, and next arrays are right (left) shifted by one bit and 
used for a, d and g (c, f and i) respectively in the peeling formulas. 

The program minimizes the movement of data in core by using circular 
buffers for storing the "previous, current and next" arrays. An array J dim- 
ensioned 3 is used to store the indices pointing to these arrays (J(l) ► 

previous, J(2) ► current, J(3) next) and after finishing each record, 

only the array J is updated. 

Also, top, left, bottom and right peels are performed one after the other 
by just one pass through the data (thus minimizing I/O) by storing the intermediate 
results in core and operating with a phase lag. 

(ii) . Smoothing 

For the boundary data to be useful for extracting interior of regions, it 
is necessary that the boundary represented be "contiguous" at all points. Con- 
tinuity and connectivity in the digital domain can be defined as follows [l5] . 

The points (x^,y^^) and(x 2 ,y 2 ) are said to be 4-adjacent if 

hi -’'2 1 + 1^1 - y2 1 = 

The points said to be 8-adjacent if 


Max (|x;^ - X 2 I , I yi -y 2 |) = 1 

A curve is said to be continuous at a point (x, y) on it, if there exists at 
least one point on the curve which is 8-adjacent to (x,y). 

The contiguity count for a point P on a curve is defined as the number 
of points on the curve that are 8-connected to P. 

Two points P and Q on a curve (in a region) are said to be connected 
if there exists a sequence of points Pq, P^, P 2 , such that 
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Pq = P, Pjj = Q. Pi is on the curve (in the region) for i = 0, 1, 2, n and 

Pi is 8-adjacent (4-adjacent) to Pi_i for i = 1, 2, . . . n. 

A curve is said to be closed if, for any point P on it, there exists a 
sequence of points Pq = P, P^, Pg, . . . , P^^ = P on the curve where n>l, Pj^ 
and Pi_]^ are 8-adjacent for i = 1, 2, . . . , n. 

A region is said to be connected if all points in it are connected to each 

other. 


Now, it is easy to see that closed curves are necessary to separate a 
given region into several connected subregions. Also, if the contiguity count 
for every point on a curve is greater than or equal to 2, then the curve is closed. 

If closed curves in the continuous domain without retracing (or "burrs") 
were digitized, then the digital curves would be closed according to the above 
definition. However, when the boundaries are digitized using a microdensitometer 
and undergo a thinning process, it is impossible to produce closed boundaries as 
defined above. But an approximation to closed boundaries can be produced where- 
in there are closed components which contain the major connected regions of in- 
terest and a few "burrs" are retained. Smoothing is the process which converts 
thinned boundaries into (approximately) closed boundaries . 

The smoothing algorithm proceeds as follows. At each point, the con- 
tiguity count is determined. This is done by testing the row containing the point 
and the two adjacent rows to see whether there are any 8-adjacent boundary 
points. The search is quite simple, if it is remembered that the column coordinates 
in the SLIC format are arranged in ascending order. Therefore, when looking 
for boundary points adjacent to (i, j) we need only check the (i-l)®i and (i+l)st rows 
until the column coordinates exceed j+1. Also, in the ith row we need only check 
the column coordinates previous and next to j (assuming no repetitions). 

Now, if the contiguity count of a point is less than 2 a neighborhood of the 
point is examined. The size of the neighborhood determines how large a discon- 
tinuity will be patched and should be pre -specified. (A square neighborhood with 
sides of the order of the thickness of the original, i.e. , unthinned, boundaries 
is generally satisfactory.) Two nearest points (if any) which are not connected 
either to each other or to the given point are determined. Digital approximations 
to straight lines joining the given point to these two points are generated and 
stored as row and column coordinates . 

After producing the patches at all points as required, the new boundary 
points are sorted, merged with the input and arranged in the SLIC format. 
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(iii) Application of Geometric Transformations 


The problem of applying a general geometric transformation on a given 
boundary image can be stated as follows . 

Let B = {(i^, (i 2 ,j 2 )j • • • , (^n> ^n^^ ^ points obtained by 

digitizing a curve using a unit grid in the x-y plane. Let 

x’ = f(x,y) 

y' = g(x,y) 

be a coordinate transformation. Then, the problem is to find a set of integer 
coordinates 


B’ = (k2,^.2)’ •••» (km»^m)) 

which represent the digitization of the same curve using a unit grid in the x'-y' 
plane . 


This is a resampling problem. It can be solved "exactly" if the original 
curve in the continuous domain has a bandlimited spectrum and the sampling in 
the x-y plane is fine enough. In that case, one could reconstruct the curve in the 
continuous domain using sampling theorem and resample in the x’-y’ plane. 

Since this is a time-consuming process, we use an approximation as follows. 

First, generate the set of points {(x^,yp r - 1, . . . , n] 

where 

x], = f(irJr) 

Yr = g(ip . 

Now, Xp and yp are, in general, nonintegral. Therefore, we choose 
the nearest integers to Xp,yp and let them represent the boundary points. Further, 
to assure that connectivity is preserved after the transformation, we join 
(xp,yp and (Xg,yg) by a straight line whenever (ip, jp) and (ig, jg) are 8-adjacent, 
and generate a digital approximation to the straight line. 

This method can be conveniently implemented with the data in SLIC 
format (a more convenient format for tins particular operation is the "chain code" 
[l] ). The only tricky part of the algorithm is to handle the storage and rearrange- 
ment of the coordinates of the new boundary points generated when large images 
are handled. If the boundary coordinates produced for the entire geometrically 
transformed image can be held in the main memory at a time, it can be written 


72 



out on a sequential file in SLIC format by array sorting in core. Otherwise, it 
is necessary to dump the coordinate data on a direct access device whenever the 
core capacity is exceeded and then sort the data from the direct access device. 


(iv) . Thickening 


Boundary lines can be thickened by "growing" each boundary point 
arount itself by a given amount. This is, if (i, j) is a boundary point, (k,f/) is 

also treated as a boundary point for all (k, such that ji - k| ^ h and 

I j “ f . I - h- Thickening boundaries in two dimensions starting from the data in 

SLIC format is accomplished as follows. If j2’ * • *’ ^n column 

coordinates corresponding to the itt^ row in the given boundary image, then the 
set 


0i ={j 



for some re Ll,n]} 


is formed. This represents the horizontally thickened i^^ row. Now, to thicken 
in the vertical direction, we simply set the output column coordinate set Tj^ for 
the i^h row to be 


h 

Ti = U • 

r=-h 


When Ti is generated, it is arranged in ascending order, repetitions, 
if any, are eliminated, and the coordinate set is written out as a record on a 
sequential file. 


(v) . Generation of Region Identification Maps (RIM) 

Starting from the basic definition of connectivity for regions given in 
Section (ii), we can develop an algorithm to identify separate connected regions 
given the boundary data. An image consisting of a unique number assigned to 
each connected region is called a region identification map (REM) . We shall 
adopt the convention that 0 be used for boundary points and 1 for "exterior" 
points (i.e. , points connected to points in the region outside the rectangle con- 
taining the given boundary points) . The algorithm to generate a REM proceeds 
as follows. 

Let (bij I i = 1, . . . , I, j = 1, . . . , Ji) be the set of_column coordinates 
of the boundary points (stored in SLIC format) . Choose N ^ b - b + 1 where 
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b 


Max bjj and b = Min bjj 

ij ij 


Let p and q be two N-vectors. These are the vectors in which the 
region identification numbers (RIN) will be generated. The vector p will be 
used to store the REST for the previous row and q will be used to store those 
for the current row as they are generated. Also a scalar X is used to count 
the number of regions found. 

Initially, all points in the "previous" row are in the exterior. There- 
fore, the vector p is initialized with all components equal to unity. Also, X is 
set to unity. Now, consider the i^ii row. The boundary data 

{by |j =1, 2, Ji) 

are read from the sequential file. Since in the SLIC format b^j are in ascending 
order, the points before bj], after bjj. are exterior points. Therefore, 

qj^ = 1 for 1 ^ k ^ b ‘2 - b + 1 and bj^j. - b + l^k^N. 


Also, 


qj^ = 0 for k = b.^ -b + 1, 3 = 1, 2, . . ., J-. 


Now, qj^ must be found only for values of k in intervals 

Aj ={k by -b + 1 < k< bjj+^ -b + l) for j = 1,2 , . . ., Jj-1. 

For every such interval, there are two possibilities . 

Case 1: There is a kn e A^ such that p, ^ 0. In this case, all points 

J kQ 

in the interval in the current row are in the region pj^ . Therefore q^^ = pj^ for 
all k e Aj . 0 ® 

Case 2: Pj^ = 0 for all k 0 Aj . In this case, it is decided that a new 

region might be beginning. The region count X is changed to X+1. Also, 
qk = X for ail k € Aj . 

Now, q contains the RIN for the current row. The array q can be 
written out and also moved into array p, to make it the "previous" row for handling 
the (i+l)S^ row. 
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This procedure, as described so far, produces RIN's assuring that no 
two unconnected regions will have the same RIN. However, in many cases, the 
same region may have more than one RIN, This happens since connectivity in the 
(i+l)St through rows is not known when the i^^ row of the RIM is being 
generated. Therefore, it is necessary to update the region numbers after con- 
nectivity between differently numbered regions is discovered. To do this, a 
"Region Identity Matrix (RIMX)" D is used to store the information about the 
connectivity between differently numbered regions . The matrix D is a binary 
matrix with d^j = 1 if re^ons numbered i and j are connected and 0 otherwise. 
Initially, D is set equal to a null matrix. When a new region number X is 
started, d^^^ is set to 1. Also, after the vector q is found for the i^^ row, D 
is modified by letting 

d^j^ = dj^^ = 1 for all (k, -t ) such that k = Pj 7 ^ 0, q^ 7 ^ 0, j = 1, . , . , N. 


Now, at any stage, the matrix D indicates which region numbers de- 
termined thus far represent the same region. This is analogous to the connec- 
tivity matrix used widely in graph theory [I 6 ] . 


Connectivily matrices have some interesting properties which are very 
useful in this, application. These will be introduced briefly here. Let X and M 
be two region numbers . Suppose there exists a sequence of region numbers 




n- 1 . 


X such that X = Xq, M =Xj^ and d 


^i^i+1 ^ 1 


for i = 0 , 1 , 


Then the regions X and M are said to be connected by a path of length n. 
Now, if Djj is evaluated using ordinary matrix multiplication, then the (X , M 
element will be equal to the number of paths of length n between X and M . 
Instead, if a logical matrix product is used (using 1+1 = 1, 1+0 = 1, 1 x 1 = 1 and 
1x0 = 0) find D^, then the (X element of D will indicate whether region m 
can be reached from X via a path of length n. If the matrix R is defined as 


R = D+D^ + D^+ ...+ D^ 


where n is chosen such that then R^ = 1 if there exists a path be- 

tween X and M of any length and R^ = 0 otherwise. 


An efficient method to obtain R is to generate a sequence of matrices 
recursively: 


R® =D 

Ri = R(i-l) + {B} X R^) for i = 1, 2, 3, ... . 

The computations are stopped when R^ = R^^ . (The matrix R^ then indicates 

paths of length less than or equal to 2 ^.) 
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Now, the matrix R can be used to find the smallest RIN to be assigned 
to each connected region to which several RIN’s have been ^ven. The records 
of the RIM computed can then be updated using table lookup. 

When handling large images, it might become necessary to perform 
several such updates, depending on the memory assigned to the computation of D 
and R. If the size assigned to D is exceeded during the computation of the i^^ 
row, the (i-1) rows before that are updated using the corresponding matrix R, 
the updated (i-1)®^ row is stored in p, the value of X is set to the largest region 
number in the updated (i-1) rows of the RIM, D is set equal to an identity matrix 
and the computation for the i^^ row is restarted. 

Several steps are involved in superposing political boundaries on remotely 
sensed images. The complexity of handling this problem depends on the facilities 
available for digitizing the boundary information. The steps described in this 
memorandum have been designed to handle data digitized using a microdensitometer. 
The process is considerably simplified if a digitizing plotter /tracer is used so that 
the boundaries can be digitized by manually tracing the curves from standard maps. 
In that case, each region can be digitized separately as indicated in [l6]. Con- 
verting the data corresponding to each region after geometric correction into the 
so-called "Tightly Closed Boundary" (TCB) format, wherein the extrema and 
inflections of the boundary are repeated, we would then have a very simple method 
for extracting individual regions or generating an RIM. 
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IV. RESULTS 


4-1 . PRELIMINARY DATA HANDLING 

Landsat coverage of the TARCOG region was extracted from the com- 
puter compatible tape of scene 1104-15552, obtained on November 4, 1972. The 
region extracted was lines 1 to 741 and samples 1500 to 3240. (Sample 3240 is 
the last sample in the scene, due to the fact that the TARCOG region extends out 
of the Landsat scene slightly.) 
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4-2. 


COMPUTER CLASSIFICATION RESULTS 


Training samples were selected from a region of size 500x500 pixels 
centered on the city of Huntsville. Two sets of training samples were selected. 

One set was chosen to be representative of four major land use classes (urban, 
agriculture, forest, and water); and the other of seven Level I land use classes 
(urban and built-up, agriculture, forest, wetland, pasture, water, and barren). 

The training areas were shown in Figure 14 . 

Linear decision functions were then computed using these sets of training 
data. The coefficients of the decision functions, in the order in which testing for 
a positive result is performed, are given in Tables 1 and 2 . 

The decision functions are then tested by using them to classify the 
training data. This procedure gives a measure of the accuracy of the decision 
functions in classifying the training data, but is no guarantee of the results when 
applied to unknown data from other parts of the scene. This is because there may 
be present data corresponding to a certain class, but differing sufficiently from 
the training data of that class that it is classified incorrectly. This situation 
arises when the training data is not representative of all data corresponding to 
each class type. However, the separation of the training sample data by the dis- 
criminant functions is accurate to approximately 95 percent. The classification 
assignments of the training data are given in Tables 3 and 4. Using an IBM 
360/65 computer, the computer time required to calculate the four class dis- 
criminants was 39 seconds. For the seven class discriminants the CPU time 
was 75 seconds. In each case, 100 training samples for each class were used in 
the calculations. 

The discriminant functions were then tested on the 500x500 pixel 
Huntsville scene, since the land usage of this relatively small area was well known. 
The class occupancy of this area by number of samples and percentages is given 
in Tables 5 and 6. 

A classification map showing seven classes in the Huntsville region is 
given in Figure 39. 

The classification into four classes required 21 minutes, 18 seconds 
of computer time. The rate of classification is 2933 pixels per second or 0.3409 
millisec, per pixel. 

For seven classes, the corresponding values are 1869 pixels per second 
or 0.5350 millisec. per pixel. 

For comparison purposes, Figures 40 and^41 show land use maps of the 
Jetport region obtained by computer analysis of high altitude (60, 000 ft.) three 
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band photography and by manual analysis of low altitude (6, 000-12, 000 ft.) four 
band photography. It is apparent that the areas of significant sizes are classified 
into the same land usage in each case. 


Table 1. Four Class Linear Discriminant Coefficients 
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Table 3. Classification of 4 Class Training Samples 



I 


Average Accuracy = 94.7% 












Table 5. Four Class TARCOG Land Use 


Class 

Number of 
Samples 

Percentage 

Urban 

241,445 

6.44 

Agriculture 

1,378, 609 

36.76 

Forest 

2, 003,588 

53.43 

Water 

126,358 

3.37 

TOTAL 

3, 750, 000 



Table 6. Seven Class TARCOG Land Use 


Class 

Number of 
Samples 

Percentage 

Urban 

303,545 

8.09 

Agriculture 

969,926 

25.86 

Forest 

2, 021,475 

53.91 

Wetland 

38, 745 

1.03 

Pasture 

321, 830 

8.58 

Water 

92,104 

2.46 

Barren 

2,375 

0.06 

TOTAL 

3, 750, 000 
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Figure 40. Four Class Map of the Jetport Region, obtained from RB-57 
Photography. 
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4-2-1 . CLASSIFICATION ACCURACY 


The accuracy of the classification has been studied in detail. In one 
procedure, a ground truth study was conducted in 101 randomly selected study 
areas located in Madison County. [l7] Each study area consisted of a five pixel 
by five pixel matrix, centered on the random location. Thus the 101 study areas 
resulted in 2525 pixels, the locations of which were visited in the field, classified 
and compared with the computer designations. It was determined that 67.4 per- 
cent of the study pixels were correctly identified. Since agriculture and pasture 
are the same in Level I classification, these two groups can be combined. When 
this is done, the percentage of correctly identified pixels rises to 76.3 percent. 
Table 7 gives the classifications of the 2525 pixels whose actual land use was 
determined. From Table 8 it is seen that for a pixel classified as urban there 
is a 0.675 probability that it is actually urban, a 0. 134 probability that it is 
agriculture /pasture, a 0. 025 probability that it is water, and a 0.162 probability 
that it is actually water. The Bayesian probability of a pixel being classified 
correctly is the probability of correct classification divided by the sum of the 
probabilities of other actual classes being so classified. The Bayesian probabilities 
of correct classification in each land use category are: 


urban 0 . 677 

agri culture /pasture 0.465 
forest 0.618 

water 0.992 

wetland 0.519 


A second accuracy analysis was performed by examining low altitude 
photographs of rural areas on Sand Mountain, since it is known that bare soil 
in agricultural areas is easily confused with urban areas. This is illustrated in 
Figure 42, in which the outlined areas appear as urban, since they are bright in 
the green band image, but are in fact are agricultural land usage, as determined 
from the low altitude photography. In the cl^sification map, light areas are 
urban, gray agriculture, and dark are forest. 
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Table 7. Classification of Actual Land Use Classes [17] 
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Table 8. Classification Probabilities of Actual Land Use Pixels 



88 




r 

SAND MOUNTAIN ALABAMA NOU M- 72 



CLASSIFICATION MAP 


Figure 42. Example of Agriculture Misclassification on Sand Mountain, 
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4-2-2. POPULATION DENSITY OF URBAN AREAS 

The area assigned to the urban and built-up class for cities in the 
TARCOG region should bear a constant ratio to their populations, insofar as the 
type of housing and the proportion of commercial and industrial development 
remain constant. The built-up areas of eleven cities in the TARCOG region were 
determined by counting the pixels assigned to the urban category within a rec- 
tangular region encompassing each city. The populations used were the published 
values for the 1970 census. The populations, areas, and population densities are 
given in Table 9. The pixel counts given were obtained from a geometrically 
corrected image in which each pixel represented an area of 57 m x 57 m. The 
populations vs. area are shown plotted in Figure 43. The solid line in the figure 
is a least squares fit of a linear function. The equation of fit is 

p = 1312.8 A - 974,4 

where p is the population and A is the area in square kilometers. 

A previous study [l-^ of forty urban areas in the Tennessee River Valley 
using aerial photography yielded the following fit equations for the years 1953 and 
1963, respectively: 

p = 1778,3 A - 549.4 

p = 1118.7 A - 2928.4 

The slope of the fit curve reported in this study falls between these two values. 
Thus it appears that reasonably consistent results are obtained using computer 
classified satellite imagery and manually interpreted aerial photography. The 
average ratio obtained from the three fits is 1403 persons per square kilometer. 
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Table 9. Population Data For TARCOG Cities 


City 

Population 

Area 

Poi 

pixels 
(57 m2) 

km2 

Dei 

Po| 

Huntsville 

137802 

31267 

101.59 

135 

Decatur 

41800 

13273 

43.12 

96 

Athens 

14360 

3583 

11.64 

123 

Cullman 

12900 

2457 

7.98 

161 

Albertville 

9963 

2485 

8.07 

123 

Scottsboro 

9324 

1849 

6. 01 

155 

Hartselle 

7355 

2192 

7.12 

103 

Gunter svi lie 

6491 

902 

2.93 

221 

Boaz 

5621 

1551 

5.04 

111 

Arab 

4399 

1261 

4.10 

107 

Madison 

3086 

1032 

3.35 

92 
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4-3. 


GEOGRAPHIC REFERENCING 


Twenty-three control points from the 11 areas marked in Figure 35 
were used in the geographic referencing solution. Figure 44 shows a UTM grid 
superimposed on the region to illustrate the solution. The lines nearly parallel 
to the sides of the picture run north-south, while the other grid lines run east- 
west. The spacing between grid lines is 10 km in both directions. The heading, 
skew, and scale factor distortions are clearly apparent in the figure, as grid 
squares appear as parallelograms. 

The theoretical transformation matrix, considering heading and skew 
effects, was given previously as 


1 

cos dH 


-sinHQ -cosHq 

cos(HQ + dH) -sin(HQ + dH) 


where Hq is the heading angle and dH is the angle of skew. 

Evaluating at the center of the scene, latitude 34. 5*^, the matrix becomes 
(using Ho = 10. 830 and dH = 3.290) 


t -0. 18816 -0.98381 

0.97141 -0,24423 

The scale change between the pixel axes and the UTM axes must be taken into 
account. The scale in the line count (x) direction is 


.079 


= 12 . 66 pixels/km. 


and in the pixel count (y) direction is 
1 


.057 


= 17.54 pixels /km . 


applying these factors, the matrix becomes 


-2.382 -12.453 

17.042 -4.285 


The empirical matrix from the least squares fit is 
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tarcog region 
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■eoted Tarcog 


-2.363 -12.271 

16.784 -4.231 


The percentage differences of each element in the theoretical matrix are 

r 0. 80% 1. 49% 

-1.54% 1.27% 


due to the approximations in the theoretical matrix. 
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4-4. 


GEOMETRIC CORRECTION 


The transformation determined by least squares minimization was applied 
to the Huntsville area data and the classification maps. The red spectral band 
image of the Huntsville area after geometric correction is shown in Figure 45. 

A segment of data sized 80 lines by 100 samples containing the Huntsville Madison 
County Jetport is shown in Figure 46. Cubic convolution was used, and the scale 
was chosen to obtain magnification of the image. The axis labels are kilometers 
in the UTM system. The geometrically corrected four class map with UTM grid 
superimposed is shown in Figure 47. A land use map of urban and built-up areas 
as shown in Figure 48 reveals the locations of cities and major roads and airports. 
The results may also be tabulated in terms of UTM cells of various sizes, as is 
illustrated in Figure 49. 
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MADISON COUNTY 


J E T P 0 R T 



Figure 46. Coverage of Huntsyille-Madison County Jetport, 
Geometrically Corrected and Magnified by Cubic 
Interpolation. 
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Figure 47. Four Class Map of TARCOG Region Geometrically 
Corrected with UTM Grid Superimposed. 
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TARCOG REGION LAND USE MAP DERIDED FROM NODEMBER 1972 ERTS DATA 
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Figure 48. Urban Land use Areas in TARCOG 
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Figure 49. Classification summary of a 10 km. by 10 km. UTM cell. 
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4-4-1 EFFECT OF RESAMPLING ON CLASSIFICATION 

The uncorrected ERTS MSS data, while good for visual identification of 
gross ground features, require geometric corrections for compajason with stan- 
dard maps and images from other sensors . Exact resampling can be performed 
using sine functions (under the assumption of band-limitedness of the data), but 
practical considerations require approximate interpolation to produce the radio- 
metric values in the geometrically corrected images. Two approaches can be 
used to study the radiometric fidelity of such images . The errors relative to 
sin(x)/x function interpolation are studied or the effects of interpolation on the 
performance of classifier are experimentally evaluated. It is seen that the over- 
all class occupancy statistics change only slightly, but the point-by-point differences 
between the classifications of corrected and uncorrected data are noticeable. 

In order to study the effect of resampling for geometric correction on 
classification accuracy, it is necessary to compare the classifications before and 
after geometric correction with the ground truth. With supervised classification, 
however, the actual classifications depend on the choice of training samples . 
Therefore, to have a uniform basis for comparing the classification performance, 
it is desirable to use the same set of training samples for the "before” and "after" 
classifications. 

Several types of before -and-after comparisons can be made. The ground 
truth is difficult to gather and convert into machine -readable format for areas 
large enough to be statistically significant. Therefore, the classification map of 
the uncorrected data based on training samples chosen as accurately as possible 
is chosen as a standard. When this classification map is geometrically corrected 
using the nearest neighbor rule for resampling, the resulting map can be used 
for point-by -point comparison with the classification of geometrically corrected 
data. This map can be compared with the classification maps obtmned when 
geometric correction is made using linear or cubic interpolation and the training 
is performed using samples from the uncorrected image or the corresponding 
locations in the corrected image. While such comparisons do not show which 
type of classification is the most accurate, they do indicate whether the effect of 
geometric correction is significant. 

One such study was made on a 500x500 pixel four-band Landsat image 
of a region containing Huntsville, Alabama. A map showing four land use classes 
(urban, agriculture, forest, water) was obtained using a sequential linear classi- 
fier whose discriminant hyperplanes were obtained by training on the raw data 
samples from each of these classes. The classification map was geometrically 
corrected for the heading angle and earth rotation effects using nearest neighbor 
values after resampling. Also, the four bands were individually corrected using 
the same correction transformation, but using linear and cubic interpolation 
rules. Four classification maps were produced, two with the original training 
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samples and two more with training samples taken from the geometrically 
corrected images. The following abbreviations will be introduced to facilitate 
reference to the experimental results . 

C = Classification map of the uncorrected data. 

NN = Result of geometrically correcting C using nearest neighbor 
values. 

LAJ = Classification map of the geometrically corrected data using 

linear interpolation/training samples being from the uncorrected 
image. 

C/U = Classification map of the geometrically corrected data using 

cubic interpolation/training samples being from the uncorrected 
image . 

L/L = Same as L/U, except that the training samples are from the 
corrected image. 

C/C = Same as C/U, except that the training samples are from the 
corrected image. 

The four classes are denoted by 

1 = Urban 

2 = Agriculture 

3 = Forest 

4 = Water 

When images are geometrically corrected, in general, they become non- 
rectangular with edges not parallel and perpendicular to the scan lines. For 
convenience, they are stored in a circumscribing rectangle. Therefore, there 
are several points in the corrected images files which do not belong in the images. 
These points are indicated by the class number 0. 

Tables 10 through 15 indicate the number of occurences of each of the 
classes 0 through 4 in the various classification maps. It can be seen that there 
is no significant change in the percentage occupancy of each of the classes (1 
through 4). 

The point-by-point differences between the classification maps can be 
summarized in various ways. Let D(X,Y) denote the 5x5 matrix whose ij^^ ele- 
ment consists of the number of occurrences of the i^^ class in image X and 
class in image Y at the same location. Then, the matrices of the NN corrected 
classification vs. classifications of corrected data are shown in Tables 16-19. 
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Table 10. Class Occupancy in C 


Class 

Number of 
Samples 

Percentage 

Urban 

28475 

11.39 

Agriculture 

111196 

44.48 

Forest 

104978 

41.99 

Water 

5351 

2.14 


Table 11. Class Occupancy in NN 


Class 

Number of 
Samples 

Percentage 

Urban 

40559 

11.43 

Agriculture 

157644 

44.42 

Forest 

149089 

42.01 

Water 

7609 

2.14 


Table 12. Class Occupancy in L/U 


Class 

Number of 
Samples 

Percentage 

Urban 

37781 

10.65 

Agriculture 

165926 

46.75 

Forest 

144186 

40.63 

Water 

7008 

1.97 
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Table 13. Class Occupancy in L/L 


Class 

Number of . 
Samples 

Percentage 

Urban 

35825 

10.09 

Agriculture 

166760 

46.99 

Forest 

144043 

40.59 

Water 

8273 

2.33 


Table 14. Class Occupancy in C/U 


Class 

Number of 
Samples 

Percentage 

Urban 

40200 

11.33 

Agriculture 

158971 

44.79 

Forest 

148011 

41.70 

Water 

7719 

2.17 


Table 15. Class Occupancy of c/C 


Class 

Number of 
Samples 

Percentage 

Urban 

38383 

10.82 

Agriculture 

160465 

45.21 

Forest 

147489 

41.56 

Water 

8564 

2.41 
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Table 16. Matrix D(NN,L/U) 


Class in NN 

Class in L/U 


1 

2 

3 

4 

0 

164243 

0 

0 

0 

0 

1 

0 

33656 

6808 

14 

81 

2 

0 

3837 

146598 

7133 

76 

3 

0 

52 

12357 

136420 

260 

4 

0 

236 

163 

619 

6591 


Table 17. Matrix D(NN, L/C) 


Class in NN 

Class in L/C 


1 

2 

3 

4 

0 

164243 

0 

0 

0 

0 

1 

0 

32580 

7764 

16 

199 

2 

0 

3081 

146497 

7889 

177 

3 

0 

35 

12366 

135757 

931 

4 

0 

129 

133 

381 

6966 
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Table 18. Matrix D(NN, C/U) 


Class in NN 

Class in C/U 


1 

2 

3 

4 

0 

164243 

0 

0 

0 

0 

1 

0 

34463 

5884 

40 

172 

2 

0 

5489 

141718 

10295 

142 

3 

0 

90 

11234 

137197 

568 

4 

0 

158 

135 

479 

6837 


Table 19. Matrix D(NN, C/C) 


Class in 

Class in C/C 


1 

2 

3 

4 

0 

164243 

0 

0 

0 

0 

1 

0 

33647 

6654 

37 

221 

2 

0 

4552 

142420 

10477 

195 

3 

0 

75 

11265 

136650 

1099 

4 

0 

109 

126 

325 

7049 
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Note that in these matrices the off-diagonal elements are generally much smaller 
than the corresponding diagonal elements. Also, the ij^^,and ji^^ elements are of 
the same order for all i and j . This accounts for the smallness in the percentage 
differences in class occupancies between the classification maps. 

The differences between NN and L/U or C/U are caused solely by the 
interpolation process since the training samples used are identical and hence 
the discriminant hyperplanes are also identical. The dependence of the classi- 
fications in L/U or C/U on interpolation can be illustrated as follows. The fea- 
ture vector at any point A in the geometrically corrected image is obtained by 
interpolation from 4 (or 16) feature vectors in the uncorrected image at the points 
on a 2x2 (or 4x4) array surrounding the point corresponding to A. The feature 
vectors participating in interpolation may not all be in one class . The classes 
that do enter into interpolation can be found by applying the geometric correction 
to the classification map and, instead of using any type of interpolation, generating 
a unique number indicative of the class combinations in the 2x2 (or 4x4) array. 

A matrix of the type shown in Tables 16 through 19 can be obtained for each sub- 
set of points in the image having a given class combination. Such matrices are 
shown for all class combinations possible showing differences between NN and 
L/U in Table 20. In this table the class combination (n^ n^ n^) indicates 
that nj feature vectors from class i entered into interpolation. The "nearest 
neighbor" is the value in NN. The table, then, consists of the number of points 
with interpolation class combination (nj, n^ n^) and NN value i that got 
classified as j in L/U. Thus, it can be seen that there were a total of 30, 391 
points at which the class combination (0 2 2 0) occurred (i.e., interpolation 
was between two samples each of agriculture and forest) and 2483 of them were 
classified into the forest class, even though the nearest neighbors were in the 
agriculture class. Some general observations can be made from this table. 

(i) When only one class enters into interpolation, all but a 
negligible percentage of points in L/U fall into that class. 

(ii) When two classes enter into interpolation, a significant 
portion of points in L/U might belong to classes other than 
the two classes involved (e.g., (2 0 2 0 ), (0 2 0 2) and 
(0 0 2 2 ) ). 

(iii) When more than one class enters into interpolation, the 
nearest neighbors tend to dominate the classifications in L/U. 

These empirical conclusions are easily justified from theoretical con- 
siderations. For, a feature vector q in the geometrically corrected image 
using linear interpolation is obtained by 

q = {a p^+ {1 - a) P2 )/?+ («P 3 + (1 - a) P 4 ) (1 - j3) 
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where P2> P3, p^ are feature vectors in the uncorrected image and ce, |3 are 
constants between 0 and 1. The vectors P]^, P2, P3, P4 are classified using the 
rule 


"Assign p to class k iff (d’^p+d^^)< 0 for X<k and (dj^p+d^j^) > 0" 


where d^ is a vector and dQ^ is a scalar defining discriminants for each X . Now 
if pjL and P2 are assigned to classes i and j, it is easy to see that o'P]^+ (1 - o;)p2 
cannot be assigned to any class number less than Min(i, j). Also, if p^^ and p2 are 
assigned to a class i, it is found that the discriminant conditions for class i are 
satisfied by oip^ + (1 - a) P2 also. 


In producing C, NN and L/U, the order of testing discriminant functions 
was water, forest, agriculture and urban. Remembering this and examining 
Table 20, the above theoretical conclusions are confirmed (except for a few 
anomalies caused, possibly, by round-off errors). 


In conclusion, the overall statistics of class occupancy are only negligibly 
affected by geometric correction. But the effects on a pixel -by -pixel level are 
noticeable and the differences between the classifications of corrected and uncor- 
rected data tend to compensate such that the overall class occupancies stay 
approximately the same. Some pecularities may be introduced by interpolation 
such as obtaining an urban pixel from samples which were classified as forest 
and water in the uncorrected image. The correct classifications in those cases 
can only be found by comparison with the ground truth for those locations. Almost 
all the differences occur at locations where more than one class is involved in 
interpolation. It is precisely at these points that the raw data from the spacecraft 
would consist of mixtures of reflectances from different classes. Therefore, it 
might well be that if the radiometric values at the resampled coordinate locations 
are estimated accurately (as with a sine function or cubic convolution) then the 
resulting classifications would be more accurate than those obtained in NN. 

Further tests along these lines (other than ground truth surveys) could be made 
using mixture proportion estimation methods [I8, 19] . 


113 



4-5. 


SUPERPOSITION OF BOUNDARIES 


The final step in the generation of the TARCOG land use map was the 
superposition of the county boundaries, as shown in Figure 25, after geometric 
correction to UTM coordinates. The complete seven class land use map is 
shown in Figure 50. 

Using these county boundaries, it was determined, for example, that 
the forest area in Madison County covers 590 square kilometers or 146 thousand 
acres. 
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Figure 50. Seven class TARCOG land use map with UTM grids and county boundaries superimposed. 




V. COMPUTER PROGRAM DOCUMENTATION 


5-1. PRELIMINARY DATA HANDLING 

1. NAME 
ERTXTM 

2. PURPOSE 

Extraction and reformatting of a desired rectangular region from four files 
(corresponding to the four strips) of Landsat data on CCT’s. The desired 
region is specified in terms of latitude and longitude or pixel coordinates. 

3. CALLING SEQUENCE 

This is a main progTam. It is currently on a partitioned data set as an 
executable module. 

4. INPUT -OUT PUT 
4. 1 hiput 

The following input parameters should be supplied in data cards 
according to tlie formats and read statements indicated below. 

READ 500, JFLG,KFLG 

READ 500, NBDS,(IBDS(I), 1=1, NEDS) 

READ 820, FVECT, BANDS, HIST 
IF(JFLG. EQ. 0)READ 500, IRI, IRF, ICI, ICF 
IF(JFLG. GT. 0)READ 600, RLATI, RLATF, RLNGI, RLNGF 
500 FORMAT(12I6) 

600 FORMAT (6 F 12. 3) 

820 FORMAT(3L6) 

where 

JFLG, KFLG are "task- indicator” flags. 

JFLG=0 indicates that the region is specified by pixel coordinates and 
should be extracted. 

JFLG=1 indicates that the region is specified by geographic coordinates, 
the corresponding pixel coordinates are to be found and printed, but 
the region should not be extracted. 

JFLG=2 indicates that the region is specified by geographic coordinates, 
the corresponding pixel coordinates are to be found and printed, and 
the region should be extracted. 
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KFLG=0(1) indicates that while extracting, the "synthetic" pixels 
(which are extra pixels added to adjust the line length) should not 
(should) be suppressed. 

NBDS == number of bands ( <_4) to be extracted, 

IBDS = band numbers (the order specified will dictate the order in 
which the components in the feature vectors and the individual band 
files are arranged). 

FVECT, BANDS, HIST are logical variables which should be .TRUE, 
to indicate that a feature vector file, individual band files, and 
histograms of individual bands (respectively) are desired. Histograms 
are produced only when BANDS. AND. HIST = . TRUE, , 

IRI, IRF, ICI, IGF are initial and final rows and initial and final 
columns respectively of the region to be extracted. 

RLATI, RLATF, RLNGI, RLNGF are initial and final latitude and 
initial and final longitude of the region of interest. They should be 
supplied in degrees (not degrees and minutes, but decimal degrees). 
Northern latitudes and Eastern longitudes are considered positive. 

The data from the Landsat CCT’s should be on four separate data 
sets which can be "OPEN" at the same time. The DDNAMES for 
these data sets should be TAPEiFOl with i = 1, 2, 3, 4 in order 
to be compatible with the non- FORTRAN read routine READNL. If 
the four strips of data are on the same tape, each strip should be 
copied to a separate tape (or disk file) before using this program. 

4. 2 Output 

The output of this program will consist of printout of the coordinates 
requested (as illustrated in the attached example) and, depending on 
FVECT and BANDS, a file of feature vectors and NBDS files of 
individual band images. These files will be written as unformatted 
FORTRAN records. The number of records = IRF - IRI + 1 in the 
feature vector file and IRF - IRI + 2 in the individual band files. The 
first record in the individual band files consists of NREC, NEL where 
NREC = IRF - IRI + 1 and NEL = IGF - ICI + 1 where IRI, IRF, ICI, 
ICF are the values supplied when JFLG=0 or computed from RLATI, 
RLATF, RLNGI, RLNGF when JFLG=2. When KFLG=1, NEL is the 
number of pixels in the shortest record after synthetic pixel removal. 
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The data in the output files are in bytes. Thus, each record of the 
feature vector file consists of NEL * NEDS bytes, with NEDS bytes 
per pixel. Each record of the individual band file consists of NEL 
bytes. 

4.3 File Storage 

This program requires a direct access work space of 9360 * 3240 
bytes (on logical unit 90) to be able to handle the four-band separation 
for a full (2340 by 3240) frame. This can, however, loe reduced when 
smaller regions are to be extracted. A convenient way to avoid 
excessive demand on direct access space is to have the DEFINE FILE 
statement 

DEFINE FILE 90 (9360, 3240, L, lAV) 

provide for the maximum space, but use a DD card for unit 90 with 
the SPACE parameter 

SPACE = (3240, (585,585)) 


5, EXITS 

Not applicable. 

6. USAGE 

The program is in FORTRAN IV and implemented on the IBM 360 using 
the H compiler. The program, in its executable form, is in the users' 
library. 
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7 


EXTERNAL INTERFACES 


This program calls several routines. The linkage is indicated in the 
following table. 


Calling Program 

Programs Called 

ERTXTM 

STRTMR 


PET 


READNL 


SVSCI 


TIKBIN 


SCLREL 


GEOPDC 


ERTXT5 


ERTXT6 


ERTXT7 


PRTHST 

TIKBIN 

IDIGIT 

SCLREL 

ENDS 


CROSS 

ERTXT5 

READNL 


ERTXT3 


ERTXT4 


DAWN 


SAWN 

ERTXT6 

SVSCI 


LRHSTG 

ERTXT7 

READNL 


LINFIX 


ERTXT8 


SAWN 


ERTXT9 
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8 . 


PERFORMANCE SPECIFICATIONS 


8. 1 Storage 

The program is 34844 bytes long, but including external references 
required and the buffers, this program needs 128K bytes of storage, 

8. 2 Execution Time 

The execution time depends on the size of the image to be extracted. 
With FVECT = BANDS = HIST = .TRUE. , a 1200 x 1200 region can 
be processed by this program in approximately 4-1/2 minutes. 

8.3 I/O Load 

None except as specified by Section 4. 

8.4 Res trie tio ns 
None 

9, METHOD 

The program reads the ID and annotation records, finds the number of 
pixels per record (called the adjusted line length) and prints the exposure 
date and time and the scene ID. If JFLG^O, the pixel coordinates are 
read from a card. Otherwise, the routines CTRBIN, TIKBIN, and SCLREL 
are used to determine a transformation matrix A and the skew angle (due to 
earth’s rotation) using the information about center latitude and longitude 
and the tick mark locations from the annotation record. The geographic 
coordinates bounding the region of interest are read from a data card and 
converted pixel coordinate bounds using GEOPIX. If the pixel coordinates 
exceed the limits (i.e., if IRI < 1, IRF > 2340, ICI < 1 or IGF > ad- 
justed line length), they are changed to the nearest limits. If the synthetic 
pixel removal flag KFLG is 0, then the region bounded by IRI, IRF, ICI, 

IGF is extracted using the routine ERTXT5, If KFLG=1, the region is 
extracted using ERTXT7 which also removes synthetic pixels. When 
ERTXT5 is used the number of pixels per line of output is IGF - ICI + 1. 
When ERTXT7 is used there will be fewer pixels per line, the number 
being computed and printed by the program. 

Other than this, there are no external differences between ERTXT5 and 
ERTXT7. If FVECT = .TRUE. , both routines write a feature vector file 
on unit NTPFV (=13). If BANDS = .TRUE. , the individual bands are 
separated and written on tlie direct access imit 90. The order in which 
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the bands (and components of the feature vectors) are written is dictated 
by IBDS. If BANDS = . TRUE, , the routine ERTXT6 is used to read the 
individual bands from the direct access file and write as separate files 
on unit 13. If, in addition, HIST = .TRUE, , the histograms of the indi- 
vidual bands are found by ERTXT6 and printed by the routine PRTHST. 

10. COMMENTS 

The details of tiie subroutines are omitted here. The methods used in 
most of the routines are quite straightforward and are apparent from the 
listings. The routine SCLREL uses some simple concepts from elementary 
geometry. A useful modification to this program (ERTXTM) would be to 
include specification of geographic coordinates of the vertices of a more 
general polygon instead of RLATI, RLATF, RLNGI, RLNGF. As it is, 
the program extracts a rectangle with sides parallel and perpendicular to 
the scan lines containing the given rectangle and, in some cases, may 
yield too large a region. The only routine to be changed to include this 
generalization is GEOPIX. 

11. LISTINGS 

The listings of the program are attached at the end. 

12. TESTS 

The program has been tested, used for tlie extraction of various Landsat 
data sets with all tlie options available, and found to operate satisfactorily. 
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MAIN PROGRAM 


ERTXTM 


• # « • 


C 

-C 

c 

-Or 

c 

-C 

c 

c 

-C. 

c 

c 

-C- 

c 

c 

-C 


. c 

Q 

c 


DIMENSION RlUC( 6 ,4) ,R LTLNG ( 6 ,4) , I FLG ( 6 ,4 LT LNG ( 6 ,4 ) 

JFLG^ i: COMPUTE REGION TO-BE EXTRACTED. PO NOT EXTRACT. 

JFLG=0 NO COMPUTATION OF REGION TO 8E EXTRACTED. EXTRACT GIVEN 

REGION ^ 

JFLG=2: COMPUTE REGION TO BE EXTRACTED AND EXTRACT. 

WHEN J FL G = C OR d, KF L G = Q -O R 1 C Q KR . ESP Q ND TO NO HR YES F O R SYNTHE^ 
TIC P IXEL REMOVAL. 

IF( aA NDS ) EXTRA C T INDI V-ID U A L BANDS ON NT A PO . - 

IF(FVECT) EXTRACT FEATURE VECTORS ON NTPFV. 

IF( BANDS. AND. HI ST ) FIND AND PRINT HISTOGRAMS OF INDIVIDUAL BANDS 

IN AOUITIJN TO EXTRACTING THE RANDS. 

N3=NUMBER OF BANOS TO BE SEPARATED ANO/OR FORMED INTO A F. V. 

IBDS- IS THE ARRAY SPECIFYING THE ORDER IN WHICH F. V. COMPONENTS 
SHD. OCCUR AND/OR THE FILES OF BANDS SHD. BE ARRANGED CN NTAPO. 


NQTE^«* THE FOLLOWING DIMENSIONS SHD BE CHECKED W. R. T. THE IMAGE 

SIZE TO BE- EXTiUCTEO^ 

DIMENSION IB0S(4) 

DIMENSION NSAMPS(4) 

LOGICAL*! IX( 13200) tl Y( 13200) 

CIMENSION 

INTEGER*2 IZI20) 

DIMENSION . AI2 . 2) 

LOGICAL*! HIST 

LOGICAL*! BANDStFVECT ^ 

COMMOn/GEOL ih/rlati ,rlatf ,rlngi ,rlngf 

CDM.MDN/CNTRc/CTLAT»C.TLQ..NG »CNTRX tC NTRY 

COMMQN/CaORD/IRI ,IRF,ICIfICF 

C0MM C N/0S -K 9 0/N JLW 9 0 ^Aia YT - 0 Q . 

DATA NTAP0»NTPF v/13 ,13/ 

DEFINE FUE 9 Q( 9 36 0 ,i 2 4 i? , U I A V9Q ) 

NRW90=9360 

N6 YT9C^.32 40 — 

READ 500. JFLG,KFLG 

WRITE (6 , 800 ) J FLG , KFLG — 

RFAD 500, N8DS , ( 1005 ( n , I =1 ,NBD5) 

W RI - T - E (6 ,34 0 ( I BQS( I ) » 1 - i , NBDS ) ^ 

READ 820, FVEC T.BAMDS ,HI ST 

FIND- NUMd&R OF - PIXELS IPIXT PER RECORD 

CALL STRTHR 

CALL PET(O) 

CALU- REAQML { U-,4 FNn.I.RFCL ,11 : 

LRECL 2=LRECL/2 

rMTgy = i 17 fi, q 








NP IXS =IPI XT/4 



WR ITE (6f400 ) 




WRITE (6,120)( IX( I )» 1=107, 111) 


IF( JFLG.NE. 0) GO TO 30 

PPAH TPT-TPP-T 


WRITE (6,5 00 ) IRI , IRF ,ICI ,ICF 




READ ANNOTATION RECORD 



CALL SVSC I ( RLTLNG ,24, 0. ) 

CALL SV SC I ( LTLNG, 24,0 ) 
nn PD T = ^ « A 1 p . 1 n 


CALL TIK3 IN( IX( I) ,RLOC( J,K) ,RLTLNG( J, K) , ! FL G ( J ,K ) , LTLN G( J , K ) ) 

1=1 4-1 


IF(J,LE.6)Gn TO ?0 
1 


K = K + 1 




WR ITE ( 6 ,1 00 )CNTRX ,CNTP Y 


ri:«aKa Kinwiitarai i KssiiBf muic 


WR ITE (6,1004) 

„ WR II£ ii)^ 1 0 CL5-1. 

DO 35 1=1,6 

_.JJRIT-£i-6^3.aai(-RL0C-(l,-J-ULXLNG( I , J1 , £ L T LNG_tX, Jl,-J = I-,-4l .. 

EIN a_-SAT£LLJX£_.tl£JLil LN.G.._1X H A , 22). 

,-jjEADNG.^J (U'LUXllOl^l .. 

_Cr}HPUI£._LRAM5F0RJlAT ION flATLSI X A . AND J AAfGEm....I., ARGXF. OJf. 

TO EARTH'S ROTATION. 


CALL 5CLREL (RLGC ,RLTLNG ,LTLNG ,HEADNG, A,T) 


DETERMINE PIXEL CHORDINATES OF THE FOUR CORNERS OF THE RECTANGULAR 

-AR-EA SPEC-LE-J£Q— LN--TERJ15-0-E-- LA TJ I lUCLEX . A NQ. _L PN G TTU nF 5 . 

HENCE FIND LIMITS OF AREA TO BF E Y TR A CTF 0 ( I C ! , ! C F , I R I , IR F ) 







c 

PFAD Ann^ 3 I A TT .gt & TF .PI MC T .PI fJT.F 


WRITE (6,6 00 )RL ATI ,RLATF , RING I ,RLNGF 

AO 

CONTINUE 

VIR !TE ( 6 f 700 ) I R I T I RF , I Cl » I CF 


C 


Tn Ff 

IF( IR I. GT.2 3A0, QR.IRF .LT. !• OR. ICI . GT, IPIXT. OR. ICF ,LT.l )STOP 

TCfTDf IT 

IF(IRF.GT.23A0) IRF=2340 
fF( rc I . LT . 1 ) I Cl = 1 

IF( ICF.GT. IPIXT)ICF^IPIXT 

UC TTP f A-7m 1 

c:n 

WRITE ( 6, 700) IR I , IRF, ICI , ICF 
rnWTTMUF 


CAUL PET( 1) 

TPf iPi r.-FQ. 1 1 <;thp 

C 

r 

FYTRArr THF APFA FROM APPSHPRlfiTF STRIPS OF FRTS OATA TAPFS. 


C 

NFI slCF.Tr Ttl . _ 


TF(KFLG.E0. OKALL F RT XT5 { NP T X S , T X , I Y , N8 OS , NE L , T BD5 , NS A MP 5 , NST R P , 

.. . .. - RAWn Sf FVFrr, NJTPF V) 

IF( KFLG.EQ. DCALl F RT XT 7{ N P T X 5 , I X , I Y , NB 05 , I BDS , NE LM I N , BANDS»FVECT, 

MTPFVI 

IFfKFLG.EQ. 1) NEL^NELMIN 

rai 1 PFTI 1 \ 

IF(NSTRP.EQ.O)STQP 

TFf FV FCT_) Ffjn FTIF KiTPFV 


IF( . NOT. BANDS )5T0P 

rAt 1 FRTYTArTY.MRns.hiFt.MTAPn.HTST.TH.TRF-TgT * t ) 


CALL PET( 1) 

TF( ^wnr^HTST) STOP 

00 60 1=1,NBD5 

wsLT TF fA.iinniTRn<;fT> 

60 

CALL PRTHST(IH( 1 , I ) ,256) 

TAM PFT/ 1 I 


} nr» 


110 
1 on 

F0RM4T( » EXPOSURE DATE : »2 A1 , 1 X3A 1 , 1 X2 A1 ) 
forma T( * TI HF 2 • 2A 1 , • - *?A1 , • - • A] , * 0 • ) 



F0RMAT(* SCENE/FRAME I0:»6A2) 

P^n_B_MATf A.Y^?AHi AT- AMD IP MO, OF rFMTFR=f,Ffl.2ylHyfFB.2.1H)//) 


300 

Ann 

FQRMAT(4( F18.3, IX, I2,F9.2) ) 
FORMAT! IH 1 ) 


500 

Ann 

F0RMAT(12I6) 

FHPMA T f AF 1 7 I 


700 

7n 1 

FnRMAT(/,5H IRI=,I5,5H IRF=,15,5H ICI=,I5,5H ICF=,I5) 

FORMA Tl mMPMTFn RF^THM FYCFFOS THAT AVAH ARt F ON THF StIPPI T FH 

j800 

. FRAME. THE PART EXTRACTED IS GIVEN BY) 

FORMAT! • JFLG=M?,* n; PYTRATT SPFriFTFD RFr^inM; ii f t wn ptyf 

A nn 


.RE5SES OF REGION(GTVEN LAT AND LONG.),* 2: FIND ADDRESSES AND 
— -rTl/t KFI r.s IT ?- t n; nn MHT RFM.nVF SVMTHFTir PTYFis; i; RFMOVF 

EXTRA 
S YNT 


• HETIC P IXELS. • ) 
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810 FORMAK* NO. OF BANDS TO BE EXTRACTED= M2 , * BANOS R EQU I RE D: * ^1 2 ) 

ft ?n FnRMATC12lfe> 

830 FQRMAT(* FEATURE VECTORS REQUIRED? *L3/ 

» TNDTVTDU AL BANO, R E QUIRE 0.2. ML JElZ 

. • HISTOGRAMS OF BANDS REQUIRED? »L3) 

IQOA FPgHAT fB7y.l8HMSS TICK MARK. .DA_TA 13 IjULR J LH2 ) U± \ 

1005 FORMAT (15Xf8HT0P E DOE , 23 X , 9HLEFT EDGE, 21 X , lOHRI GHT ED GE , 2 IX, 1 1 HBD 

.TTHM FDGF/1 5X. 8( 1H»I . 23X.9( 1H») .2 1 X ^ 1 0( IH ») « 21X . 1 1 ( 1H» )/// .) 

1100 FORMAT! IHl* lOX, 18HHIST0GRAM FOR SAND, 12) 


mo. 


— S4J.aiU3 -UT J>£T4-U 

IF( I.NE.O )GQ TO 10 

- CAL4-TlM5-aUTIW^14 

TTIME='0. 

) 

200 FORHATt lOX, 'BEGINNING TlMlNG-^<' TIME NOW 15 O') 

.s^xmu-^ 

10 CALL TI«ER( ITIME2 I 

I ) /-lOCU 

TTIME=TTIME+TIME 

ULIi<&l--I-Tli!l-E2 - 

WRITE(6,100)TIME,TTIME 

IQiX. j^OiUliLn IQX.' T IME . F -LA-P-^-EH -4 1 NC£- LAST, PR LNT1.MG ..QE_„I_I.ME= *£ 12^3 

. *SEC., TOTAL TIME FL APSED= * El 2. 3 , » 5 EC. * ) 

E^OR-N 

END 




r 

RPADNL START 0 5U3RQUTINF R 5 AD^?L (I U P , MF ND , L R EC L , NT A P I ) 

BC~ . L5, X2.t.iSl- . - . 

DC X*7* 

^ OC Ct-Z*ft£AXX^iLl - - 

STM 14,12,12(131 

BAi-R — 2-^-0 

USING *,2 

1 2.MI) LDAD. ADDRESS .OF-BUFEER 

USING INAREA, 3 

—L ^.4( 1 > - tn-AO- ADDRESS OF MENIX 

L 6, am LOAD ADDRESS OF LRECL 

L 7,12(1) .LCAD-ADDRf-SS-J^-AlXAP-I,.., 

LR 10,13 1 SET UP 

XA A3^TXAVE LINKAGE FOR 

ST 13,8(0,10) 1 CALLING OTHER 

S-X ^ ._l— RDUTXNE 5 - 

L 12,0(0,7) R12*NTAPT 

: S-a L2-^.= aLL-* R.12=NIAP.J-l — 

SLL 12,2 R1 2=(NTAPI -1 ) <'4 

A. 2-^ = ALDP NTA.a I -R1.2 = AO DRESS G£_ GPA[.T A B J-.LNTA£Xt_ 1 JJ? 14 _. ... 

L 12,0(0,12) R12=AD0RES5 0^ NTAPI'TH INDCB 

aP£M- . LMZX, t INPUT-U 

LA 9,EGFEX1T 

ST a, EQFA-DD — 

MVC 33(3,12) ,EnFADD^l 

GET,.. U21,1.NBUE - 

LH 3,82(12) 

ST a,,4U-6-L— — 

RFTRN L 13,TSAVF+4 

- - - LH--. 2,12,2^1X3) RE.STORE REGISTERS 

L 14,12(13) 

— - M V. I- 1 2 ( Xai ,.X * FB »_ 5 1 G NA L.. C OH P. L ET_1 QN ..EF-SUBRIlilllJiLE 

BCR IS, 14 RFTURN 

EilF EX I-T -X 3-,-^iX-' - 

ST 8,0(5) 5FT MEND = 1 

- CLOSE -- UX2 ) ,LE AVF) 

8 RETRN 

„OPHTAa DC AX-I.MQCai ,-lbLDCB2-aSLDCaa»lJjD.C£4.,JSLD.CB5 , lNr)C.Bii.l 

DC A( IN0C87,TN0C38,IN0CB9) 

INDCB 1 DCB DDNAME=TAPE1F01 ,DEV0=TA,DS0RG*PS , 3U FNQ= 2 , M ACR F= (GM), 

E R OPT = ACC 

IN0CP2 DCB D0NAME=TAPE2E0l,DEVD = TA,DSnRG=PS , BUFN0=2 , M ACR F=(GM), 

- E.aaRTs.AC.C 

INDCB 3 DCB DONA ME = T AP E 3E0 1 , OE VD =T A , OS OR G = P 5 , BUENO = 2 , MACR F= (GM), 

EXUP-T^A C C -■ 

IN0CB4 DC 9 0DNAME=TAPE4F01 , DE VD = T A , D50RG = PS , fiUEN0 = 2 , M ACR F== ( GM ) , 

Cfi-OR-T-ACC 

TNOCBS DCB DDNA.ME = TAPE5Pni , DEVD = T A , D50RG = PS ,BUFN0=2 ,MACRF= (GM), 

E R d fi -T-a A CC ^ ^ ^ — 

IN DC 86 DCB DD NA ME = T AP E6 FDl , DE VD = T A , DS OR G= PS , BU FNa=2 ,MACR F= (GM), 

. ER-OP X=-ACC — 
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IN0CB7 

OCB 


OONAME»TAPE7F01#OeVD*TA,OSORG*PS»8UFNO»2tHACRF» (GM), 
FanpT«Art _ 

INDCB8 

OCB 


D0NAHE*TAPE8F0I»0EVD*TA,DS0RG«PSfBUFN0«2»MACRP*fGM), 

f^opt*acc 

INPCB9 

OCB 


0DNAME*TAPE9F01,DEVD*TA,D50RG«PSfBUFNQ*2 ,MACRF*«GN), 

_ _ _ 

COUNT 

TSAVF 

DC 

Q 

CL38' 0203040506070809101 1121 3141 5 16 1718 1920* 
n 

EOFAOO 
TNARF A 

OS 

DSF 

CT 

IF 

INBUF 

1 

OS 

900F 

THIS SIZE CAN BE CHANGED TO DESIRED VALUE 



LOGICAL*! L(N),LWCA) 
^ Q UIV AL - gNCe ( 1 W » L WC !4 ) 
DATA IW/0/ 

IF A C ^ 10**( 4^ *l -) 

J=0 

4)0 10 1 = 1 r N 

LW( A)=U I ) 


IFAC=IFAC/10 

40 Q QNT - l - N U g 

lOIGIT* J 

ft f - T Oft- M 

END 
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c 


BINARY 


X 

LOGICAL*! lY(lO) 

LOGICAL*! IN4lS*.IF»iy»JTTK1 ^l.TTIC? 

TNTeGER*2 II 

LOGICAL*! -LMi-2) 

FOUIVALENCE (II»LW(D) 

OAT A lJ./Qy 

DATA IN, T5f lEf IW,ITIK1 ,ITIK2/ »N* , »5 * » »E * , »W * , M * t '=*/ 

OATA T2Tms/Z8nnn/ 

c 

X FIR5T flHD LQCAT-ICN- D^. TICK HARK. IF. A NY. 

C 

Ti=.L-G?0 

IF( IX(3). EQ .ITIKl.OR. IY(3I . FQ, ITIK2) IFLG=A 

TFLTYnnL^Fa^TT tXl^DR^ XI in) ^FQ.TTIJ<2)JFLG^3 

IF( IFLG.EQ. ORETURN 

X 

C IF( IFLG.EQ. 0) THERE IS NO TICK MARK CORR. TO VECTOR IX SUPPLI: 

X 

Lwr n = IX( 1) 

1 HL?\ =TX(.2I 

RLOC^II/FLOATIiaTaiS) 

I F U X.U FLX ) ^ Q .XN U_TL NG = 1 

IFIIX (IFLG) .EQ. 15 )LTLNG=-1 

TFUX(-IFLG) .FQ.IF ) LTL NG^»2 ^ 

IF ( IX ( IFLG) .EQ. IW )LTLNG*-2 

RLTI NG^in TGTTI TXI TFI G»n .31 niGITC IX (IFl C»5) .2)/60. 

IFILTLNG.LT.OIRLTLNG^-RLTLNG 

LTLNG * .T ABSILTLNGl 

RETURN 

EMO 








ij u u 


SUBRO UTIN g- ^C L R E LCR L OCfR L T L NG t L TLN( 
REAL ITBL 

COHMON/CNTRE/CLAT ,C LNG.CNTRX tCNTRY 


TO FIND THE TRANSFORMATION MATRIX A AND T, THE TANGENT OF THE 5KE! 

(LATITUDE ) (X) (CLAT) 

( ) = A ( ) ♦ { - ) 

(LONGITUDE) ( Y) (CLNG) 

RLOC fR LTLNG ARE ARRAYS CO NT A I NI N G F I LM COORDIN A T E-S^- GEOGRAPHIC 
COORDINATES AND L AT ITUOE/LONGI TUDE INDICATORS CORR.TO TICK MARKS. 

1 Tl Mr f T . I I - 1 f C # T - I » ITU TTrVMAQV A lATTTSinP AMH P TP TT T<: A 


LONGITUDE. J = l*2f3fA FOR TOPf LEFTt RIGHT, AND BOTTOM EDGES OF T! 
mAGE ^N FTLM.. — ~ 

CALL ENDS(LTLNG(1,4),6, 2, 181,182) 

r\T nr / iT-j i i_oi nr/TTi nr/fa'9_A^i~pi nrfTni-Al 


DANG = RLTLNG( IT2,1 J-RLTLNG( ITl ,1 )+PLTLNG(I B2,4)-RLTLNG( 181,4) 



CALL ENDS(LTLNG( 1,3),6,1,IR1,IR2) 

PANr,= R| TL Tl. P ,P >-RI Tt NGf T 1 1 ,2 1_» R L TL NG f I R 2 . 3 ) -RLT .L.NG.UR1_, 11 
OTIK=RLaC ( IL2, 2 )“!?Lr)r (ILl ,2) + RLOC( IR2 ,3)-RL0C( IRl ,3) 

AC 2,2-) = D A ^i G /DT I K ^ 

A( 1 ,2 )=0. 

M- n 


IT8LC 1) =-l. / ( .5 + 5, 5/1 80. ) 


00 10 1*1,6 

00- ID ,^4^ 3^ 

IF(LTLNG( I, J) .NE. 2)GG TO 10 

.^N+L_. — 

A( 1,2)*A( 1, 2) +( RLTLNG( I ,J)-CLNG - A ( 1 , 1) LOC ( I , J ) ) » IT B L( J ) 

rn M T T KIM i: 


A( 1,2)*A( 1, 2)/N 


FIND X COORDINATES OF LEFT AND RIGHT FDGES FOR TICK MARKS. 


00 20 1*1,6 

__I F4 LtLNGI-U-24-^£^Z4-Ga-ia. .20 

XL = XL + ( RLTLNG( I ,2)-CLNG-A( 1 ,2) *RLOC( T ,2) ) 

M >> K) X 1 


CONTINUE 

TCfM WP_n»YI=Yl 


IF(N. ^Q.O)XL= .55 

— XR — 


20 




ITBL( 2)=1 ./XL 

TTRt f =1 . / YR 




N = 0 

Af 7. 1 ) = 0- 




DO 40 1=1,6 

on 40 J = 2.3 - 



IF(LTLNG{ I, J) .NE. 1) GO TO 40 

N = N + 1 . . 

40 

A( 2,1) = A( 2, 1) + ( RL TLNGU , J )-CLAT-A (2,2) ^'RLCC (T , J ) ) * I T BL ( J ) 
rONTINUF . . 



A( 2, 1 ) = A( 2, 1 ) /N 
DFGRAD=ATAN{ 1. ) /45. 




H= { HE ADNG-1 80. ) *DEGRAD 

T= 1 R. /251.»CQS(CLAT»DEGRAD) 



T=T»C05(H)/( l.-T*SIN(H) ) 

SKFW^ATANI T )*18 0. /3. 14159 62 

1 no 

PRINT 100, ( ( A( I , J ) , J=l,2) ,1=1 ,2) , SKFN 
FORMATC//' TRANSFORMATION FROM FILM COORDINATES 

TO GEOGRAPHIC COi 


0INATES»/2(2E15.6)/* SKEW ANGLE ON FILM=»F8.?,* 
PRINT 400 

DEGREES* ) 


400 

FORMAT!//* RESIDUALS AT TICK MARKS WHEN T R AM S FOR M AT ION IS 
PRINT 5 00 _ _ _ . . 

USED* ) 

500 

FORMAT!/* TOP AND BOTTOM EDGES*) 
on 60 J=1.4,3 




Y=1./ITBL!J) 
on 50 T = 1 .6 



r 

IF!LTLNG! I, J) .NE. 2)G0 TO 70 



c 

Y AND LONGITUDE ARE GIVEN. 




CALL CROSS! A! 1,2) ,A ! 1 ,1 ) ,A!2,2) ,A !2 ,1 ) ,Y,RLTLNG! I , J)-CLNG, 

GO TO 7 5 . _ _ _ .. 

X , P H I J 

70 

r 

IF!LTLNGi I, J).NE. 1) GO TO 50 



r> 

Y AND LATITUDE ARE GIVEN. 




CALL CROSSC A( 2 , 2 ) ,A(2,1) »A(l,n,Y,RLTLNJG(I f J)“CLAT.,X,PHI ) 


DX^RLnC( I ,J).r-X 

PRINT 600 ,X, Y,RLTLNG( I , J ) ,PH I , R LOC (I , J ) , OX 

_ 6.Q0 FH RHATf 6F15 .5 ) ' 

50 CONTINUE 


MllflBlalf 








IF(LTLNG( I, J) .NE. 1) GO TO 90 


C X AND LATITUDE ARE GIVEN- 


CALL CROSS! A( 2* 1) ,4(2 ,2) r A! 1 , 1 ) ,A ( 1 ,2 ) ,X,RLTLNG(I , J ) -C LAT , Y ,P H I ) 

GO TO 9 5 ' 

90 IF(LTLNG! I , J) -NE. 2) GO TO 80 


C X AND LONGITUDE ARE GIVEN 


CALL CR0SS!A(1,1),A(1,2),A(2,1),A(2,2 ) ,X,RLTLNG(I , J ) -C LNG, Y ,PHI ) 

^ OYsRLDC! I , J )-Y 

PR I NT 6 00,X,YfRLTLNG{ I ,J) ,PH I , RLOC ( I , J) ,D Y 

-an. caALXTmis 

RETURN 

- FO R^ 4A- T - ( - 2 0 -XA 44 0 ) 

300 FORMA T( 10X3F15. 5) 




GO TO 20 


LQ rONTIMUF 

RETURN 

2D I ? ? -LL - ■ . 

1 1N = I 1 + N 

on 30 I - I I , N ^ 

K= HN-I 

IF( IXfK),NF.J)GO TQ 30 

I2 = K 

RFTURN 

30 CONTINUE 

RFTURN 

END 









r 


<;URROUTTMF GFRP I X ( A «T .XUP . YUPJ 

COMMQN/CNTRE/CLAT,CLNG,CNTRX,CNTRY 

rpMMm^ /CFgt fM/Ri_ATT «RI_ A'TF ,ft1 MGT .Rl MGF 

COMMON/CaaRD/IRI ♦ IRFtICI , ICF 

01H£!i51£!N--A I 2 f Z! 

0IHEN5IQN B(2»2) 

n xHPffCTnM rnpMiP-^l 

C 

,c PfNn_JMyER5E ilF MATRIX A. _ - 

C 

OET*A(l-ai*A( 2.2I-A(1 -2)*A< 2.1 ) - 

Bf 1«1 Ua( 2, 2)/DET 

Rf 1 ,2 l=>A< 1 .2 WnFT _ 

8(2»1 )=-A(2a )/OET 

Ri 2 ^2 Is Af 1.11 /RFT 

C 

_r P TMH AM n PRTMT FUM rnGRPTNATE*; AMD PIXEL I NCREM ENT5 1 F ROM CENTER) 

C OF THE A CORNERS OF THE RECTANGLE TO BE EXTRACTED. 

CORMN 1=1. ElO 

CORMN 2=1 . FI n 

C0RMX1 = -C0RMN1 

rnRMX2=-cnRMNi _ 

PRINT 100 

no in 1 = 1.4 

RL AT=RLATI 

LFil^jGT^2jRLAT = RLATF 

RLAT=RLAT-CLAT 

RI M ai 

IF(MQD( I* 2) .EQ. 0) RLNG=RLNGF 

RI NG= RI NG-n MG 

CORN! 1* n=B ( 1,1 )^RLNG+8< 1 ,2) *RLAT 

Cr3RNi_2^I l_=a_( 2_*1 ) «‘RLNG + B12 ,2JL?RL_AI 

CORNl =C0RN( 2, !)<'( XUP-85) 

CGRN2 = tj!:XQRJiLA,I) ♦CJlRNiiLaLA’yr.i^ _ 

CORMN 1=AMIN1(C0RMN1 ,C0RN1 ) 

CQRMNI 2=AMTN1 (CQRHN2.C0RN2) . _ 

CQRMX 1=AMAX1( CORMXi , CORNl) 

C0RMX2=AMAXXI.CaRMX2,C0RN21 „ 

10 PRINT 200 ,Ct3RN( 1 t I ) ,CORN( 2, I ) ,C0RN1 ,C 0RN2 , RL ATfRLNG 

TRT=CORMNH-CNTR_X 

TCI=CORMN2+CNTRY 

TRF=:CnRMXl-«-CNTRX4-l. 

ICF=C0RMX2+CNTRY+1. 

RETURN _ . 

100 FORMAT!//* FILM COORniNATFS AND PIXEL I NC R EM ENT S ( FROM CENTER-) OF T 

.HF FOUR CaRNERS _QF_jrHE R E C _IA_N.GLA_5P.LCJ F,I.EJ)_*_ ) 

200 FORMAT! 1X4F 10.r,l OX 2F 10.3 ) 
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FVECTfNTAPQ) 

**^GICAL*1 BANDStFVFCT 

DIMENSION IBD5(NB),I5TRP5(4),NSAMPS(4)»ISAMPI(4),ISAMPF{4) 
n T M PM C I nKi TPPTVTf^l ^TPPTVPI^lI .TRYTFTf^l .TRYTFFfdi 


r 

LOGICAL^l I X(4000) , lYINEL ,N8) 

IF C BA NPS . *=V^CT) 0 *N I X ( MA ^01 4 000^ NFl * Np ) ) 




C 

r 

npj: T W P F T 1 P Of\l IDF ~T P T 4-1 1 »>JR MFl .1 LJLWJ 




— — ^ 

C 

r 

DEFINE FILE 9 0( 9 460 ,3 240 , L , I A V) WORKS FOR ALL ERTS 
THAN OR FOUAL TO 2340=5*3240 PIXELS. 

CCT 'S WITH LE 


C 

r 

DEFINE FILE 9 0( NR W9 0, NB YT90 , L , I A V ) 

TP nPPTMFn PTIP <;PA_CF _IL^ TM<;ilPP ir TFMT . PRnr.PAM UTIt 



C 

rnMMnM/rnnor>/TgT .trp irr rr_E 



C0MMaN/D5K90/NRW90,N8YT90 
MCTPP =n 



DO 10 1=1,4 

TFf NP IX S» ( I~] ) -*-l ^ r,T. TOE - OR - NP T Y<;» T . 1 T . ir T ^ on to 





NSTRP =N5TRP*1 
ISTPP S( NSTRPI =I 




10 

CONTINUE 

PRI^IT i?on^ ( I <;trp n , T =1 f NSTRP ) 




1200 

r 

FORMAT! » CCT STRIPS CONTAINING DFSIREO DATA ARE' 

4 16 ) 


C 

C 

FIND IF ALLOCATED DISK SPACE IS SUFFICIENT. 1^= 
MESS4GF, SET NSTRP^O AND RFTHRN. . 

NOT 

PRINT ERROR 


c 

IRFr^fTgP~TfiT4-11»fjR _ , 



TF( EC.LE,NRW90. AND.NEL.LF.N8YT90)&0 TO 48 

PR ! WT 1 nnn . iRFr.MFi .nruqo .mryt90 _ 


1000 

FORMAK//* INSUFFICIENT FILE ALLOCATION FOR ERTXT5' 
- » RF QUT_BJ_n_ NRyODs » T c; / _ 

/ 

. » REQUIRED N8YT90=*IF/ 

. » SUPPLIED NBYT90^M5) 

^CTRP =n . . . . . 



RETURN 

'"ONTINUE 




c 

SKIP IPI+1 RF<~n®DS riw THE PFSIppp STRIPS-, 




c 

nn 1 = 1 ^MSTJiP . . 



IR 1 1= IR 1+ 1 

IF( IR Il.EQ.OIGO in 30 
00 40 IPFC=1»IRI1 

40 CALL REAONiLl IX, lEND ,LRECL ,T STPPSI n ) 


rn^T r mhp 


40 





C I=1,MSTRP. 

DO 20 1=1 ,NSTRP 

— ISflMP T ( I) =ilAXO{ 1 4 I C1-(I5T R P S n )-n » MP TXX) 

IPRTY I ( I ) =M00( I SAMP I ( n •2) 

I BYTE H l.L = l T S AHe.IJJL X^1XJ-2AR±2 ^J_PELT YJLIJU 

C 

TSflMPFf n=MTNnf MPT YSt TrF>( T <:TRP«;( T)-f >»NPT YSl 

IPRTYF( I)^MOD( ISAMPF( I) ,2) 

— ™ I S Y t£-F( I) =-U.SJ^M P Ei-U - 1 L/-2.»a--il^I-Y E_U_1 

NJSAMP S( n = ISAMPF( I )-ISAMPT( n +1 

TF( T . GT . 1 )NSAMPS ( T ) =N SAMP S (1 ) t- NSA MPS ( I-l ) 

20 CONTINUE 

C EXTRACT AND COPY DATA ON DISK. 

r 

JREC=1 

no 70 IRFC^ IR I ■> TRF 

C 

C READ DATA FROM EACH STRIP AND MO V.F__L N.I.Q..Ag,RAY_I Y 

C 

nn 80 !=1.NSTRP 

CALL REA0NL(IX»IFN0,L'?FCL,ISTRP5(T) ) 

TF(3AND5)CALL ERTXT 3CNB ^NFJLtl 3_Y.I^I , LB-YI£F...i, IJIR_ I YJ..U 3 .A M_P S 

T. IX, I Y) 

If t >J^JlT_.3AbLD S ICALL FRTX TA t NB ,MEL . I RYT ^ I , 1 3 YT E F , T P Q T V I.x IB OS AJA P S , 

I , IX, I Y) 

an chntjlnuf . . 

C 

__C OMF RFCORD HAS BEEN fi}R.MXD_m. ALL . . RRI.TF \j A5 .N3..RtCgj_D 

C GN DISK. 

IF( ,NQT.3ANDS )GC TO 130 

CALL OA WN ( 9 0, JR EC , I v{ 1 , I R ) ,\!FL) 

_T2.0 JR.EC^JR.£.CtJ^ . 

IF( .NOT. FYFCT)GO TO 70 

00 50 IEL^1,NEL 

DO 60 . ... . .. . 

JFL=J EL + l 

.tn IXLJLU = I.TLXE L t-IBJ .... 

FO CONTINUE 

C.ALI,...5A.it!iiJLTA£Jlj.JJLjL!iLLM5 .).. 

GO TO 70 

130 CALL. S.A^N( ^LTA.P□. !_.v^.NEL»^ ) .. . 

70 CONTINUE 

C END OF LOOP GN RECORDS 

RE TUR N 
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DIMENSION I8YTEK NB ), IBYTEF(NB) ,IPRTY I< NB ) , I 80S ( N B ) »NS AMPS (NB ) 

— Law: AL-g^i i-y(-4 Ki - y(NE . i t N8 > 

DO 90 

m- YTElsj^ ^TE-X t-U UBBSC IB ) -U»^ 2 

IBYTE2= IB YTEF{ I ) 

IF( 1. GT. 1 )JEL=N5AMP5( I-D+l 

IFC 12RTYK l-UEQ^UGQ 10-4.00 

IY(JEL,I3) = IXnBYTEl) 

iCI - i Ct J. 1 


I8YTEl=I8YTEl+7 
rnMT r MtiP 


DO HO lEL^ie YTEl ,I8YTF2,8 

fVI ICI ,Ti3l-IvrTCI \ 


JFL = JeL>l 


no JFL = JEL+1 

CONXimLE- 

RFTUKN 

...... .giiO--— 



DINENSION IBYTEIINBI*IBYTEFCNB)«IPRTYnNB) flBOS(NB),N$ ANP5 (NB) 
LOGIC AL»1 lXCn»IY<MB-NELJ 
DO 90 1B«1»NB 

IB YTE 1» IB YT El II I ♦ fl BD S (1 8 1 -IJ »2 
IBYTE2«IBYTEFfII 


IFC I.GT.l >JEL«NSAHP5( I-H+1 

IPXIPATYJ II UEQ^XJqo Jxrxao 

1Y(1B»JELI*IXI IBYTEl) 

OEL^JFL+l 

IBYTEl=IBYTEl+7 

J_QO fOMTTMUF ^ 

DO 110 IEL*IBYTEltIBYTE2,8 

JXI7B^PLI«IX{IEJ_I 

JEL*JEL + 1 

lYlIB,^l£Ll*lXIiEL+ll 

110 JEL*jEL+l 

qn rOMTIMiiF 

RETURN 
..END 







StlRRHUTIMF I R HSTC. (I X t N . T H 1 _ 

OIMENS ION I H( 2561 

LOGIC AL»1 LX(N)fL y(^) 

FQUIVALENCEI IW,LW(D) 

OATA- I«/OiL . 

DO 10 1 = 1 *N 

I y f £l\sI y( T \ 

10 IH( IW+1)*IH{IW + 1)+1 

RiXURM- 

END 
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SUBROUTINE ERTXT7C NPI XS , I X, I Y ,NBDS ♦ IB DS ♦NELMIN,8AN0Sf F VECT *NT PF V ) 
rnMMnNycnnRn/TR.T , irf^ in .irF 


LOGIC AL^-l IX( 1) »IY(4,1) ,B ANOS ,FVECT , SCRMBL 
nTMgM5inhj T R ns(^) 


INTEGER^2 LLC 

TWTPf; FB 1 1 A 

SCRMBL^NBOS.NE, A 
nn F Is 1 - MRQ<; 

5 

c 

SCRM3L=SCRMBL.0R. IPDSd ).NE.I 


C 

DIMENSION IX, lY (A#3300) 
1 1 A=N P T XS=>^ 


r 

NELMlN=iCF-IC I+l 


c 

SKIP TO IRI’TH RECORD OF DATA (NOTp: FIRST 2 RECORDS ARE 
ANNOTATTON; THFY AR F ASSUMFO to have been skipped on UNIT 

10 AND 
1) 

c 

nn in t = i , ^ 



IR 1 1= IR I + l 

TF ( T. FQ^llTR 1ST- 1 


IF ( IR 11 .EQ. 0) GO TO 10 
nn ?n tr= i . t» n 

20 
1 n 

CALL READNL ( I X, lENO ,LRECL ,I ) 
rnwTTfJUF 


C 

r 

FXTSACT AND REARPANGt_.DATA FOR THF RFGION OF INTEREST. 


c 

on 30 TSFf = IR I . TRF . . . 


c 

c 

MFRC.F nniiriLF BAND TNTFRIFAVFD DATA. 


c 

IAD = T .. . 


DO 80 1=1, A 

CAM RFAQNJ ( IXf I AD) .1 END.LRFCJ_,^IJ 

ftp 

IF ( I. EQ. DC ALL VMQVl ( IX ( LRECL-D , 2 ,LLC) 
T AD= 1 AO+1 SPCI -Eft 


C 

r 

FIND IDEi =N0. OF GENUINE PIXELS BETWEEN S YNTHET LC PIXE LS , 


c 

in FI = LLC/ r LLA-LLC -M 


CALL LINFIX(IX,IY,LLA,1 ,TOEL) 

C 

NOW lY HA.5 LLC FEATURE VECTORS. FIND COLUMN ADDRESSES CORRESPONOi 
TO IC D ir f I T T IS A IS UM FQ I H A T _ JLCI D C F RFE_ER_ TH T_H£ FR.ARE INCLllDl^ 

C 

r 

SYNTHETIC PIXELS). 


IC 10 = IC I- ( ICI-1 )/( IDEL+n 
TCPni=irF-{TCP-l)/(IDEL+l) 

NELO= ICF^-ICIQ^■1 

.... N£J,MJ:Jir_EiLNQ ( N E.LMI N’...N£LGi ..... 


..If.tSlUOS)CA.LL tE^rXIB TO. . R eARK ANG f. LY_.,.INTa 3AAm.S_JLfiiI..M_IXf__Q^L D.15K, 
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C 




















LINFIX CSECT 


« SEPARATE THE ADJACENT PIXELS. THE MAPPING IS 

j(r RprnMP<: 


USING **12 

CAUP 


UR 12,15 


LA 13, SAVE 


kT>K'iacz^ 


W.Ml 


ST 

13,8(11) 



<• LOAD PARAMETER LIST 

LM 

ST 

2,6, 0( 1) 
2 .R Ff 1 

FETCH 
SA VF 

PARAMETER LIST 
ADR OF INPUT ARRAY 

ST 

SR _ 

3 , L P 1 X 

D , 0 

SAVE 

ADR OF OUTPUT ARRAY 

LH 

SI 

0,0(4) 

Q.NPIXLN ■ 

FETCH 
- SA_VE_ 

VALUE OF NPIXLN 

VALUE QF NPIXIN 



,=F*1» INCREMENT FOR EYH 

.IDFL COMPARAND FDR BXH - SPACING 

ll: load line length correction switch 


BNZ 

LAD J 

IF -TRUE. GO TO LINE ADJ CODING 

* INNER LOOP 

- MAP BYTES 

INTO NEW POSITIONS 

TOP IC 

sxc 

5,014,2) 

-5 , Q-( 4 *3 ) 

BAND 4 PIXEL LEFT 



5,3(A,2) 


R IGHT 
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6 


LEFT 


IC 

1C 5, 5(4, 2) 5 RIGHT 

S-TC 

IC 5, 6(4, 2) 7 LEFT 

STC 5-^44^ 3 1 - - 

IC 5, 7(4, 2) 7 RIGHT 

$XC 3 t- 7 4-4^t-3). 

BXLF 4,6,TnP 

LADJ BXH 8,10,FIX1 COUNT PIXELS UP TO IDEL - REPEAT INTERVAL 

5 , 0(4 , 2) 

STC 5, 0(4, 3) 

LC S,2(4,2) 

STC 5, 1(4, 3) 

— — tC 5^4 (4,2) 

STC 5, 2(4, 3) 

IC 5 , 6(4 , 2 ) 

STC 5, 3(4,3) 

P-ART2 BJO=l 3 ,1 Q, F IXZ.. 

IC S, 1(4,2) 

— STC -5-,.4.4-4.+^~ — 

TC 5 ,3 (4 ,2 ) 

STC 5-,JS(-4.,.3-) 

IC 5, 5(4, 2) 

TC 5,714,2) 

— — STC 5 ,7 (-4^, 3) 

BOTTOM BXLE 4, 6, LADJ 

FIXl SP 3,8 

S ..&D.JLLSX_.DUIPU.I-,PIUiilT-EiL. FOiL..DELEtED PIXEL . 

B PART2 PROCESS RIGHT PIXEL OF THIS PAIR 

F4-X2 SR a^-8 RFS FT LMaEX„ FOR I mEJi V A_U.CQULLI 

S 3,=F*4» RESET OUTPUT POINTER FOR OELFTFO PIXEL 

8 --^ -dd-TTOM FT40-aa-C^-QU£-^ — 

* 

qR— tUIUXJ-N.£ 

4 " 

gJdD 1 U3^- S A-V-i^4- 

RETURN ( 14, 12) f T,RC=0 

S 4U E — OS - 1 8F — — 

RFCl DS IF 

WM-X ELS IC 

NPIXLN DS IF 

tCC OS LF 

IDEL DS IF 

E ND — — 
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SUBROUT INE ERTXT8( I X , 1 Y ,NBD5 » I BOS ,NEL tIRFC) 

Umi£-AL^-J.X( 4»ii£U ♦-L.Y1A1EU 

DIMENSION IBDS(N80S) 

JRECi=-n R-c-Cr 1) » N a.DS — 

DO 10 I=1,NBDS 

pg 2 0 ■ J ^ l ^Jl£l — 

20 IY( J)=IX( IBDS( I) t J) 

JREC = JREftJ ^ 

10 WRITE(90* JREC )IY 

aeiURjj ^ 

END 


SUBROUTINE FRTXT9 (I X , lY ,NRDS , I ROS ,NEL ) 

UJaiC 4 Xt-^^N£L) rl Xi.Mari.S-.^AlUJ 

DIMENSION I805(NBDS) 


_r>G_.40_I-l.^(4.30S — 

DO 10 J=1,NEL 



DIMENSION IH(N) 
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5-2, COMPUTER CLASSIFICATION 

1. NAME. 

EFFECT — Effective Figure of Merit Feature Selection Criterion 

2. PURPOSE 

This subroutine is used to implement a nonparametric feature selection 
criterion. The separability of classes of data from the remaming classes is 
required in the design of a sequential linear classifier. 

3. CALLING SEQUENCE 

CALL EFFECT (X, NS, CLASS, MOC, DE, NWl, NN, MM) 


X 

NS 

CLASS 

MOC 

DE 

NWl 

NN 

MM 


the array of data samples, with subscripts corresponding to 
feature number, class number, and sample number 

array containing number of data samples per class 

array containing class names (8 characters) 

array containing class numbers in separability order 

array of interclass and intraclass distances for each feature 

class counter 

number of features 

nxunber of classes 


4. INPUT/OUTPUT 

4. 1 Input 

All input is via the arguments of the calling statement. 

4. 2 Output 

Printed output consists of the values of the normalized figure of 
merit for each feature, for each class remaining under consideration. This is 
followed by a list of the effective figure of merit for each class, listed in 
descending order of merit. 

5. EXITS 


There are no nonstandard exits. 
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6 . 


USAGE 


Computer: IBM 360/65 
Language: FORTRAN IV 

7. EXTERNAL INTERFACES 

7. 1 System Subroutines 

The subroutine SORTLS is called to arrange the effective figures of 
merit in descending order. 

8. PERFORMANCE SPECIFICATIONS 

8. 1 Storage 

Code: EFFECT 3072 

SORTLS 1684 

Total 4756 bytes 

8. 2 Execution Time 

In a typical case of 100 training samples for each of six classes of 
four band data, the interclass and intraclass distances (all elements of array DE) 
are computed in 9 seconds, 

9. METHOD 

The interclass and intraclass distances are labeled SUM 1 and SUM 2, 
respectively. They are computed for the I-th feature by the formLilas: 

MM 13-1 LKKl LKK2 

SUM 1 (I) = L S Z Z X(I, 13, LKl) - X(I, 14, LK2) 

13=1 14=1 LK1=1 LK2=1 L 


LKKl LKK2 


LKl-1 LK2=1 


X(I, 13, LKl) - X(I, 13, LK2) 


where MM is the number of classes and LKKl, LKK2 are the number of samples 
of the classes 13 and 14, respectively. The sums over sample lumibers are tlie 
elements of array DE. 
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The normalized figure of merit is given by: 
F(I) = SUM 1(I)/SUM 2(1) 


The figures of merit for each feature are then combined to give the figure 
of merit for the class. 

10. COMMENTS 

The elements of array DE are computed when the routine is called the 
first time (NWl = 1). On succeeding calls, this calculation is bypassed. 
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11. LISTING 


C 

<;nRRnnTTNF (y. n*;. ri as<;. Mnr, hf, nwi . mm> 

c 

-X £FfECTIVE FIGURE OF M£RIT FEATURE SFL ETT I Ofti-XAITER I ON 

C 

DI M ENStOiJ NStHHU MnC(HH)-, n F.l HM,MH ,NM) »- FC ( ? 0 1 > 

.CFM(20) 

: PnURLE PRFCISJnM russiHM) 

142 FORMAT ( * 1 • /20 X* •£ FF EC T I VE FIGURES OF MERI T»/20X ^ 26 ( * »• ) /17Xt 16 17) 

143. FO RMAT ( IS , A 9 ^ 5X > 1 6F 7. 4/ ( 1 9X , 1 6F7 , 4 U ^ 

150 FORMAT ( /2 OX . • COMB I NE D FIGURES OF MERI T • /2 OX , 2 5 { • «• « ) / ) 

1 5 1- F OR-H-AT ( I21»A1Q»F14>5) ^ 

C 

r rnMPUTE5. IMLER-riASS AMn TMTRA-riASS HTSTAMCFS 

c 

WR ITE i 6 * 1 A2)_ n .--I = 1 

IF (NWl.NE.l) GO TO 2000 

no 10C 5 -NF 1-1 ,NN 

DO 2 14=1, MM 

MC2 = NSf !4) 

DO 2 15=1,14 

= MSIT5) 

DEI 14,15, NFl) = 0.0 

nn 3 LK2=l.fJC2 

IF U5.EQ. 14) MC3 = LK2 - 1 

no 3 I K3=l .NCT 

3 0E( 14,15, NFl) = DEU4,I5,NF1) ♦ AB5 ( X( NFl , 14 ,L K2 ) - X ( NF I , I 5, LK3 ) ) 

2 D EI I5,l 4» MFli-= Q£J I4 »l-5 ,NEL) 

1005 CONTINUE 

DO Ll ll-NC^i .MM : 

1111 MOC(NC) = NC 

_C ^ 

C COMPUTES THE NORMALIZED FIGURE OF MERIT OF ALL REMAINING PATTERN 

r CtASSFS AlONG EACH OF THE FEATURE DIRFCTIDNS 

C 

2000, CONTINUE 

DO 1100 J3=NW1,MM 

CFMIJ3 ) ^ 1,0 

13 = M0CIJ3) 

AI3 = NSf T3) ^ 

DO 3000 1=1, NN 

FCMTN = 1. n F 50 

NST = 0 

SUMl = o.n 

SUM2 = 0.0 

£ ^ 

C COMPUTE SUMl - TOTAL OF INTERCLASS DISTANCES FROM CL'AS^ 13 TO ALL 

C RFMATNING CLUSSE^ ^ 

C 

on 6 J4=NW1.MM 

IF (J4.EQ.J3) GO TO 6 

T4 = MnCfJ4A : ^ 

AI4 = N5( 14) 

NST = NST » NSI 14) ^ 

SUMl = SUMl + DE(I3,I4,n 

L-.: 

C COMPUTE SUM2 - TOTAL OF DISTANCES AMONG ALL REMAINING CLASSESt 

£ FQUTVAI FMT TO INTRACIASS DT STANCE OF AH REMAINING CLASSES CONSIDERED 

C AS ONE CLASS ISO 

£ 








IF (J5.EQ.J3) GO TG 7 

» c — un r ! I c 1 


SUM2 = 5UM2 + DE UA.ISfl ) 


^ DE(I3,I3.I) / C AT30I AI3-1.0,n * DE(I4,I4,II / ( A I ( A I 4- 1 . 0 ) ) 


IF (F.LT.FCMIN) FCHIN = 



5UM1 = 5UH1 / (NS{I3) ’J'NST) 


FCII) = FCMIN - 5UM1 / SUM2 



3000 CFM(J3) = CFM(J3) =J= FC(I) 
rPM#i-;i = ** ri.p 


WRITE (6,1A3) 13, CLA3S(I3), (FC(iMF), NF = 1,K'N) 


CALL S0RTL5 (CFH, liUC , NWl, HM) 


PRINT 150 

D O 1 2 5 1 NC l=Nri -U-Mj4 

1251 PRINT 151, MGC(NCi), CLA 55 { HOC ( NCI ) ) , CFM(NCl) 

CALL SGRTSL I HOC , .MnC^-Jii.ki.LA 1 ,^-JiUl) 

ret JR N 

PM n 



12. TEST RESULTS 


EFFECTIVE FIGURES OF MERIT 





1 

2 

3 

4 

1 

URBAN 

1 1 

0.5182 

0. 51 35 

0. 6 61 1 

0.6613 

2 

TRANS 

15 

0 .4766 

0. 4914 

0.5934 

0. 5568 

3 

AGRIC 

21 

0 .4395 

0.4442 

0. 7357 

0. 752 6 

4 

DECID 

31 

0. 588 4 

0.4332 

0. 491 9 

0.4551 

5 

EVGRN 

32 

0. 7341 

n. 6479 

0.5 169 

0.4727 

6 

WATER 

61 

0 .461 3 

0. 5555 

0. 9130 

0. 9263 


COMBINED FIGURES OF MERIT 


6 

WATER 

61 

0.68228 

5 

EVGRN 

32 

0. 59359 

3 

AGRIC 

21 

0.5 8904 

1 

URBAN 

11 

0. 5 9543 

2 

TRANS 

15 

0.52743 

4 

OECIO 

31 

0. 50228 
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1. NAME 

SNOPAL — Supervised Nonparametric Learning 

2. PURPOSE 

This subroutine is used to derive the coefficients of the linear functions 
used in a sequential linear classifier. 

3. CALLING SEQUENCE 

CALL SNOPAL (X, NS, CLASS, W, MOC, S, Y, B, NWl, NN, MM, 
NNl, MMl) 

X - the array of training data, labeled by feature number, 

class number, sample number 

NS - array containing number of data samples per class 

CLASS - array containing class names (8 characters) 

W - array of coefficients of the linear discriminant functions 

MOC - array containing class numbers in order of testing 

S - double precision array of dimension NNl x NNl 

Y - work array of length total number of training samples 

B - same as Y 

NWl - class counter 

NN - number of features 

MM - number of classes 

NNl - NN + 1 

MMl - MM - 1 
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4. INPUT/QUTPUT 


4. 1 Input 

All input is via the calling arguments. 

4. 2 Output 

The coefficients are output by the argument "W', Printed output 
is the coefficients and the errors for each iteration of tiie algorithm. 

5. EXITS 

There are no nonstandard exits. 

6. USAGE 

Computer: IBM 360/65 

Language; FORTRAN IV 

7. EXTERNAL INTERFACES 


The subroutine GASINV is called to invert a matrix. 

8. PERFORMANCE SPECIFICATIONS 

8.1 Storage 

SNOPAL 4172 

GASINV 1838 

Total 6010 bytes 

8. 2 Execution Time 

The execution time for each call in constructing a sequential linear 
classifier varies because of variations in the number of iterations required 
and the number of training samples. In a typical four-band, six-class problem, 
the time spent by this routine approximately 1 minute. 
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9. 


METHOD 


The method consists of maximizing the total distance of the training 
samples from the discriminant hyperplane, as described by J, C. Ho and 
R. L, Rashyap, "A Class of Iterative Procedures for Linear Inequalities,” 
J, Siam on Control , 1966. 

10. COMMENTS 


The algorithm performs a maximum of 100 iterations. Otherwise, for 
four-band data, iterations cease when all coefficients change by less than 
1 percent. 



U O C 


101 FORMAT ( /I 13,A10,10X , 1P7E14.3/(33X ,1P7E14. 3J I 

102 FORMAT «»»)/2PX.«»ri A<;S».T3.Ainf« » »/22X.22<«»»l // « IX£ 

.RATION NO. * r5X, ‘ERRORS MOX, 'LINEAR DISCRIMINANT COEFFICIENTS*/ 

^ A22^J QTHFft « /) 

216 FORMAT (» 1 */10 X , 'ORDERED C LA SS E S * , 20X , * ELE ME NT 5 OF THE DISCRIMINAN 

^ V E C TO R « / 1 Q X . 1 F f < » M . 2 n X - 3F I « » ' I yj 

220 FORMAT I/7X, 'TOTAL ERR0RS'*I5) 


INITIALIZE W, Y, AND B ARRAYS 


NW = MOCINWI) 

Nsw_?= jsi Nim 

NW2 = NWl + 1 

HFl TA = nn; /40n .0 

DO 1112 NFA=1,NN1 

.ii.l 2 y f NWl .NFA ) = 0-0 

NST2 = 0 

nn 1110 Nr 1 1 .MM 

NC = MOC(NCl) 

Ns r = N_siNr_J 

DO 1110 NS1=1,NSC 

M<;T ? = MCT 2 

Y(NST2) =-1.0 
._1 lia^tN S TP) = 1 .0 
C 

r rOMPUTF INVERSE OF AITRANSPOS^I A WHERE «A' IS AUGMENTE D MATR IX OF SAMPL_E_- 

C 

no 130 T^l.NN 

DO 130 J = 1 .NNl 

<; f T ^ j 3 - n .0 

DO 131 NC l=Nh'l ,MM 

Nr = Mor f Nr n 

NSC = NSINC) 

. no 13 1 NS 1^1. NSC 

A1 = XI I.NCtNSl) 

. TF f.I.NF^NNH AT - A 1 » X ( J , NC . N S 1 J 

131 sn ,J ) = Sli.J) + A1 

g3i} s ( j . y ) = s ( I ■ j ) ^ 

S(NN1,NNU = NST2 

_ . -_CAi i fiASINV (S. N Nl. P ET) ^ 

C 

C nn NT TTFRATIONS OF THF HO-KASHYAP ALGORITHM. UNLESS AL L COE FF ICIENTS 

C CHANGE BY LESS THAN DELTA = NN/A PERCENT 

PRINT lC2f NW. CLA55INW), CLAS5CNW) 

nn 1040 TNnFX=l .N1 ^ : 




: 

A2 = 5( I fKNl ) 

O;7-i4 0 

140 A 2 = A2 + i( 1 , K) iWNii . J) 

W( 1 tU -* .42=^AeS( Y..( j.n 

J = NSi^ 

-• 

HC ^ MO C ( N C 1 ) 

4- S C- - = - N-S4 ^>-C-)- 

00 ?0G0 NSl^l.NiC 

J_^_ J_..*_. 1 

A2 = .S(I,^'lNil) 

- ■ - 


141 A2 = A2 + i(ItK]’>X(K,NCfNSl) 

-2XLa£L_^.Mja-44._?= iiilJi^l.4-i_T....A2S‘.AaStY( JJ.l. — * 

IF (A35( W( . I )-W 0 ) -GT. A3S( OELTA*WOn TEST = .FALSE. 

1 1 aL -C0Aq:4-AUJ^E 

c 

c COMPUTE -ME-W— U4^4XHX4-A.4I- - V A LUES-- AND - CLAS S J-F-ICAJ-LO ^X -ilRIUlR-S 

C 


DO 1C 04 I=l,NS.'i 

J-^.-( Y-U-UG-T^-C^a)-. H i L).._= B t il- f - 2.-0 *Y-U ) - 

Y ( I) = W ( U W I . N f'. 1 ) 

DO— 1 1 4X--i:^E2.=-I-. - 

1141 Y(I) = Y(I) + i( NWl .N.F2) ^X(lMr2 ,NW,I ) 

I-F. ,.LYi J ) N5R4 1- =..,iiER.Ri..„* ] 

1004 Y( I ) = Y( 1 ) - o ( 1 ) 


t 


N E R 2 = C 

on maa iiC 

■NC MCC(!\C1) 

nn 10 05 n^si=i,n:jC 

IF ( Y I T ) .GT. 0. 0) 6(1) = b(I) + 2.0"-Y(I) 

j^.T-44— s--N-(iw-WJ..^£;4-) 

OU 145 hF2 = l,'J.J 

X-Al.l— =- .Y.tl ZLtLX.LHE hiC-^ii S!.!- 

IF (Y( I ).GT.O. 0) N’ERk2 = NERR2 + 1 

4445- Y ( I) XT- B-I4- ) 

C 

P-R-I-NOT- - 1 N-&R^R-l-» -N BR R2-^- - X->U-N W-1^ A-)_^ ^jjLA^ 4»Jil£U 

IF (TEST) GU Jj IQ 10 

l_O40— G-ON-X-l ^ 

1010 NERR = NERkI + hEKR2 

fte44-T--2-40-^--N-Eaa — — 


4-R- — (-£ W -1-. N r . M r A i-) — xE-I u k N — — 

WRTTF (6,216) 

03 - 1-2.23-4^=4-41*41 

4C = ^'^C(NW) 

._4220--P24 4-T TO-U- ^ (-4l4,Ji£-Al-^ .-45 A^X, N M.U-— 

PRINT 101, HUCCnM), CLAS5( P0C( MM) ) 

END 
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TEST OUTPUT 
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1 . 


NAME 


NOPACA “ Nonparametric Classification Algorithm 

2. PURPOSE 

This subroutine has as its purpose the implementation of this method of 
classification. 

3. CALLING SEQUENCE 

CALL NOPACA (X, NW, W, MOC, NSS, NN, NNl, MMl) 

X - array of feature vectors to be classified 

NW - array of class numbers assigned to input feature vectors 

W - array of coefficients of the linear discriminant functions 

MOC - array containing class numbers in order of testing 

NSS - number of feature vectors to be classified 

NN - number of spectral bands 

NNl - NN + 1 

MMl - number of classes less one 

4. INPUT/OUTPUT 

4. 1 Input 

All input is via the items in the calling statement. 

4.2 Ou^ut 

The output is described under CALLING SEQUENCE. 

5. EXITS 

There are no nonstandard exits. 
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6 . 


USAGE 


Computer: IBM 360/65 

Language: FORTRAN IV 

7. EXTERNAL INTERFACES 
None. 

8. PERFORMANCE SPECIFICATIONS 

8.1 Storage 
792 bytes 

8.2 Execution Times 

The time required to classify a four-band feature vector is 0. 06 
millisecond per class present. 

9. METHOD 

The unknown feature vector is used to evaluate the discriminant functions 
in the order of class separability determined by subroutine EFFECT. The un- 
known feature vector is assigned to that class for which the evaluation is positive. 

10. COMMENTS 
None. 
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11. LISTING 


. SJJftC.niJTlJklg, MQP AX A ( X y ^ U-- M-QT ^ N55; NN ? N'Nl ; HMli — 

Kimi^Ao AM ETRIC class If ICAT ! ^ fej— Sf_4^S-T4^I-NC- 0 F N S 5— f-f A T U RE V E CTQR S 
USING PRE-LEARNED LINEAR DISCRIMINANT FUNCTIONS 

DIMENSION X(NN,NSS), N^INSS)* W(MM1,1), MOC(l) 


OD 20 N51=1»N55 
00 1 NW i-1 «MM 1 
G = M (Nu 1 ,NN 1) 


2 G = G + W(Ni«li,NFl) <• X(NF1,NS1) 


1 CONTINUE 

ALU (MSI I = 

GO. TO 20 

3 MW f MS 1 ) c Mnr(wyi) 
20 CONTINUE 

JlPTJiftW 

END 



5-3. 


GEOGRAPHIC REFERENCING 


1. NAME 
GEOGREF 

2. PURPOSE 

Find a geometric transformation from one coordinate system to 
another such that the mean squared error at a given set of control 
points is minimized. The transformation is linear, accounting for 
rotation, scale change, skew, and translation. 

3. CALLING SEQUENCE 

This is a main program. It is currently on a partitioned data set 
as an executable module. 


4. INPUT-OUTPUT 
4. 1 Input 


The following input parameters should be supplied in data 
cards according to the formats and read statements indicated 
below. 


1 READ 100,NCP,ICI,ISP,NTRY 
IF(NCP. LE.O)STOP 


DO 10 N = 1,NCP 
N2=N-2 

READ 102,X(N2-1),X(N2), Y(N2-1), Y(N2), TITL 


10 CONTINUE 


GO TO 1 

100 FORMAT (416) 

102 FORMAT (4D12. 0, 32A1) 


where 

NCP=Number of control points (if NCP40, the program stops) 
ICI, ISP are special parameters to be used when handling Landsat 
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images, with the ground control points* coordinates measured 
relative to the image without the synthetic pixels removed and 
the transformation required being from the image with no 
synthetic pixels. ICI is then equal to the initial pixel number 
on the Landsat frame starting from which the region of interest 
Y^as extracted and ISP is the number of real pixels between 
synthetic pixels. If ISP is specified as zero, this special case 
is ignored and no corrections are applied to the coordinates 
(Y(N2)), It is generally more convenient to remove synthetic 
pixels in advance and supply ISP=0. NTRY=Number of fits to 
be found for the current set of control points using the succes- 
sive elimination procedure (See Section 9). 

X (N2 -1),X(N2); coordinates of the N*th control point in the re- 
ference image (e. g, UTM coordinates) 

Y (N2- 1), Y(N2): coordinates of N'th control point in the ob- 
served image (e. g. Landsat pixel coordinates). 

The transformation is found from the X's to the Y's, Note 
that the loop starting at statement number 1 indicates that the 
program finds transformations for several sets of control 
points, until terminated by, say, a blank card while reading 
NCP. 

TITL: Arbitrary 32 character title. 

4,2 Output 

The output of this program is a printout of the control point 
coordinates, the fit parameters found and a table of errors 
at all the control points. A typical output is attached at the 
end. 


4. 3 File Storage 
None. 

5. EXITS 

Not applicable. 

6. USAGE 

The program is in FORTRAN IV and implemented on the IBM360 
using the H compiler. It is in the user^s library in its executable form. 
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EXTERNAL INTERFACES 


The linkage with the subroutines required by this program is 
shown in the following table. 


Calling Program 



LNLLS 



Programs Called 


RSVP 

EHVFIT 

SUBRT 

SORT 

DPMMV 

LNLLS 

SUBRT 


GAUSS 

SUBRT 

MVMRMR 


SUBRT 

BIORTH 


SCLR 


The program is 7688 bytes long, but including external re 
ferences required and the buffers, this program requires 
62K bytes of storage. 













8.2 


Execution Time 


Depends on the number of cases to be considered and 
NCPjNTRY in each case. With NCP=36 and NTRY=6, this 
program takes approximately four seconds per case. 

8.3 I/O Load 
None 

8.4 Restrictions 
None 

9. METHOD 

In the special case of Landsat data (described in Section 4, 1) the 
routine RSVP is first used to modify the coordinates Y(N^'2) for N=l, 
, . , ,NCP. The means of both X and Y coordinates over N = l, • , . , 
NCP are found and subtracted in order avoid possible inversion 
of a matrix with large numbers during the determination of the 
transformation. 

The routine EHVFIT is used to determine the transformation. This 
routine considers a given subset of the control points supplied and, 
using the least squares fit program LNLLS ^0], finds the goemetric 
transformation parameters. The transformation so formed is used 
to compute the error at all the control points used for the fit. The 
mean and variance of the error are found. The points with error 
greater than or equal to the (mean + variance) are included in the 
set of points to be eliminated for the next trial. 

The main program GEOGREF calls EHVFIT NTRY times. During 
the first call the set of points to be eliminated is null. During the 
subsequent calls this set is appended with points causing high error 
so that with each attempt the RMS error at the fit points is reduced. 
After each call to EHVFIT, the set of points used for finding the 
transformation, the RMS error at the fit points, the values of the 
parameters defining the transformation, a table of errors at all the 
control points, the overall RMS error and the set of points to be 
omitted next are printed. 
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10 . 


COMMENTS 


The details of the subroutines are omitted here. The least squares 
fit routine LNLiLS is described elsewhere l20]. 

11. LISTINGS 

The listings of the program, the associated subroutines are 
attached at the end. 

12. TESTS 

The program has been tested for several sets of control points. 
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TO FIND GEOMETRIC TRANSFORMATION NEEDED FOR GEOGRAPHIC REFERENCING 


DIMENSION wnOO), IC0HB(50), IC0MB0I50) 


iiiii 




iJfti 


[»li] 


[•lij 


«Ya<1001t WU12) 


■■ircifiV'iKai 


DX, OY 



X(e*NCPJf Y(2«NCP)» XP{2«NCP)t YP(2 «NCP)t X0{2*NCP)* Y{2*NCP) 


COMMON /MORN/ NORM /PRINV/ I NV 
TWVsfl 


RADDEG « 180.0/3. 1A1S9265 


r«ii 


READ 100fNCP,.ICIf ISP,NTRY 


NCP IS THE NUMBER OF CONTROL POINTS TO BE USED IN T.HE FIT, 


IFINCP.LE.OISTOP 




XMl-0, 




DO 10 N-=l ,NCP 


c 

a t/LD_ JD2 X LN2^JIJ j X 

:LN 2_) , 

yitJi-u , 

i_Y_<U21...tLTJ^_ _ _ .. 


NEWY= Y(W2 ) 





CAJJ RS^P^Lfi^MY^J^P 

ntiM 

iiE i^YL 


Y(N2)=NEriY 




XM2 = XM2+X(N2) 


PRINT 105,XM1,XM2>YM1,YH2 
VM 1=YM1 /MTP 


XM2-XM2/NCP 


YM2=YM2/NCP 


PRINT 101 


N2=N*2 

# ft I t ft ft 


X{N2)^X(N2)-XM2 


i 

Wi 

M 

Q 3 IQQRQIIIII 


lAli'J 












1 c; 

Y( N2)=YiN2)-YM2 

ppiMT 1 .y f N?-i J .y f . Yf wp-1 1 .Y r w?i 


C'' 

u f 1 i =- 1. . 


MCP=NCP 

K-0 - - 

NERR=0 

JID long _K_k_- T .MT^Y ! 


NCPK=NCP-K 

rrtM pwyPTT^k. TrnwR.'Wrp. y. y^ yp- yP t‘» w # ■ OPI > 

NFRR^ FRMrNf__ 


ERHEAN, ERVAR, ICQMBO) 

T P f W P R R 1 jrjl TH J>n 


C 

r 



C 

PP TNT lOP _ . _ 


r 

STOP 


20 

CONTINUE 

..[PTFRMT^I r^T n - ) FR MT Ni^ PQR T ( PR MT W /NTPK i 

1 


OX = GPK5) + YNl - GP1(1)=>XM1 - GP1(2}^XH2 

nY__ = r,P i_i_A ) -t- VM? - r,Pi f R T »ymi - gpi f 4 ^ »vm? 


WRITE<6,121 JNERR 
ViP 1 TF ( ^ 1 1 ) N<"P K 

WRITE(6,i22) ( ICGHBOrj)', J = 1 , NCPK) 

T TP f 1 PftMTM. PRMP&M. F^VflP - 


WRITE (6, 108 TNORM ’ 

nP ITE (.« 1 3 ^7 ) ( GP ] ( J ) T 7 =1 tA ) f nx^ nv 

- . . . 

C 

UP I Tt ( 6 1 1 1 1 ) - 



RHS=0 . 

rO 2F N = 1 tNfP 


r 

N2=2*N 


r 

CALL 6U8RT IN , X ,GP1 , W1 , T8 ) 



CU=Y( N2-1 )-T8( 1) 

DV- Yl N2 )-* IB { 2 ) 



SQ = DU*=i'2^-0V«^2 
RMS~KMS-'-S0 • 

> * 


XMA iQR T (SQ) 

Y f) 1 Q = p A DO E G ’J' A T A N ? ( 0 V r OU )- 

'■* i n 


PR INT 109*N ,Y( N£- 1 ) ,Y(N2) ,TB(1) ,T8{2) ,XMAG,yOIRi 
CO NT I NUF _ _ _ 

pu*iov 


m 5 = 5 UR T { RH 5/ F LG AT < N C P) ) 

WP I TF f A , 1 1 4 ) R M S 

• j , f " r . ’ 


WRITE (6,1 19 }K 

IF{K^NEj0)WRITEI6rl?0) ( ICOMPTJT r J = T tK) 


1 non 

IF(NCP-K.LE.2)GG TO 1 
CO M T T N < 1 F 


r 

GO Tu 1 


C 

r 

' PORHAT ST AIEP'sENTS. 


ICO 

F0RMATC12i6> 
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101 

102 

103 

lOA 


106 

ibT 


ica 

109 

111 


112 

Tf4 

1 19 

120 ' 

12 J 

122 

123 


1 24 


FORMA 

•rnnft 

FORMA 

FORMA 

FORMA 

Mrma 

FORMA 

Tqrma 


't . 


T(>l*t39X,*CGNTR0LP0INTSV28)(,* GE OG R AP H I C 2 1 x“, • P Vx TL 
niNATF5* > l^V:»riUmDJia^TF^ , 

TC 4D 1 2 • 0 f 3 2A 1 ) 

T{ /1 15 -2* 6 X, IPOl 4, • , • *01 1 ^ 4) -3X‘56 A1 ) 

7A:r QHE i}iS ;0F: I WPUf 

TiS# siJM:^ 0 i f y 

T(*l LF AST SaiJARFS‘>^F it Nn■T^ -Af.R'rF\^Ds* ) 

rf///! 5 H"f iT"'PA R AME TE RS / SHbATl iT^ = ,1 PEY%'. 3/ 8 H0'aYi' 21"^ 'r'’ 
F 1 5 * 8 / 8 H OA C 2 1 3 = . F 1 614 2 2 ^) > $=|iRFfl^f 0 ^ 


FORMA 

FORMA 

FORMA 


FORMA 

FORMA 

FORMA 

FORMA 

FORMA 

FORMA 


la 

-m- 


•5HbO‘Y^. V-f<- 

T< *0 NORM = » IPOl 1. 4) 

T( /ix,I2,4i2F=i'b.2,^ ) (XtgNPl!Vii7S3^a?V^5" f ’U 

\iU J1 QX43HC QMPA 8 J SON □ F OB'5 E R;V.E D. .ANJln PR^D.I £I E.Q.^X^yB5_Zi 
9 X 8 H b 8 R y E b \^z. 0X;9y P B ;Pb lit i 2 R ' i i i S"'"' 

7 X 1 1 HC OOfiO I NAT ts^ja Xll kc OOftb I N At’f s . 1;3.X9;M:MAG N IJ UpE^, ' > : . 
2X9HDrRECfTaN77TX7HX ERR0R',3X7HY E RRo'r) ^ 

T ( 1 H 0 - IP 01 U 4 » IH . , 0 1.1 . 4& 6X 0 1 1 .4 ,1 H , - D 1 Li 4iV6^ ^.FA 1^ 4) . :? 

'='';Tj>ElTV 4 r w.’. 

Tl 'O NUMRFR OR OATA_POINT5 TO BE OMITTED NE XT ^'1 
T( *0 SET OF POINTS TO BE CMI TTED »/ <1 X30 I4T) •• •• ;?a 3*-? 

T( »1 LEAST— SQUARES FIT ACHIEVED, NERR = ' ,;Ji2 ) ? 
f('* SET OF POI NTS USED 'IN C C M PUJ ING,. jj Tf 

(1X3014)3 ^ r ' .7 f .. . . t uvsn- 

FQRMATI//* ERRORS D V E R THE SET OFPOINTSUS E 4 f 0 kf T HE • fj T.'7“’ ^ 
* RMS £RaUR^_LlPBll ; MEAN ERR 0R= « 1 PFT4 >.4-. * 


TION = 
FORMA 
END 




• IPE 11 .4, *. * ) 

T( * NUMRER_pE POINTS^ USED-FOP XHE 

^ '“i r ■- r \^y YST 3 7^'iri 

■ ; _ 

k y li ’J 

j i li « i u ».. /*■. V ^ ji j * I 




ift 




: ^ i 

.__ . 

)i . .f L V i CjO 

JL n" j' f 

; r -1 I.*** -,. .^. -T^ -.' ^ T-m- jw7«-Ll V 

.' i U f i- - : ^ i- -.^1 ■ l! J I > i. I- ■ ■-; ; 

: ^.. it ..-, » 








I* t 

'i ■>'■ i » I 

, .. 


2 H ^ 




•'-tf ■3p!-.yLwJ^iV«»,‘'> 




“•^. • «M^xgeatn . 


^ — - 0 ^- 










DE VIA . 



— . 



EtVAKf ICOMiai 


c 

c 

PCRPbRH PITS »Y ELIHINATING POINTS. WITH HIGH VARIANCE. 
FIRST.. flNP THE FIT AND ERRORS AT THE POINTS SUPPLIED. 

c 

c , 

NEXT. IDENTIFY LOCATIONS OP HIGH ERROR AND STORE THEIR INDICES IN 
ICOMR IM PREPARATION FOR THE NEXT CALL OF EHVPIT. 

"c 


REAL** X(2tN) fy(2.Ni.XPI2|NI > YP(2 ,NI •CP(A t tT(*i ,H ] (121 
NK>N-K 

CALL bPHHV(XtXP,2,NtlC0Nlfll» 
CALL pPMRV«Y*'^^*2*N.ICaMS.K». 

CALL LNLLS(UiXPiYPiGPiNERti*iNK|2fj)i0i«HLIN.ifl 
IFINERR.NE. IIRETURN 

c 

c 

FIND HEAN AND VARIANCE OF ERROR. 

c 

^RMpAN-a 



' ERVAR»0 

..,00. 50,JM*N.K..; - - 

CALL SUBRTIJ.XP.CP.Ul.TI 

DU-YPIl.Ul-Tm 

DV«YP(2iJ)'T(2) 

ERR»PU**2+DV**2 ^ ^ 

XPUt J»«S0RT( ERR» 
ERVAR>ERVAR*ERR 

50 

ERMEAN>ERHEAN*XP( 1. J> 
ERNFAN* ERNE AN/NK 




I f ( ER VAR . CT . 0 ) » VAR« SORT ( ER VAR ) 


ERTHR«ERHEAW» ERVAR 

C 


C EINO THE SET OF fOltITS TO RE EUHINATEO, 


V 

c 

c 

'..-R-M W ***T *^TT* t ^ -w ^ -f- - t — - 

FIRST. SIT ICOHSO«(1.2.....NI-ICDMB 

i»i 




bo lb j»i*N 


I F n . 61 . K J GO jg AO _ _ _ 


IF! J.EO. ICDHSIIHGO TO 20 




ICQHBOIU «J 


CO TO 10 

20 


10 


IKM 

NON. ICOHBOILI IS THE INDEX IN THE X SET CORRESPONDING TO L IN THE 

IHii 

XP 5ET. 














TuIrBuT . 

oTS'^N^f ON’'''rr^^^ f (‘ji'ri ) ♦Yt (nS) t iB (is Yk U r ?. 

Tki-r^i-z-f-n « T* T-T* 






5 

10 


INTEjG^ER AtT,TT 

m=T 
1 * 1. 1 
‘■ j * jj 

IF(I. GE. J )G0 TO 7C 

w- 7 i /'4 >*t; •.“^V:^,,,■ ..- • • -. - V. 

K*I 

^ IJ*{ I +J )/2 
CALL MVMRMR(A,MM 
TF( A( I, 1) .LE,T( 1 
^"""'“"“‘“CALL' 

CALL ( T , 1 , 

■‘“‘"'""'C"A L L H V H R M R' ■( A , M M 
20 L* J 

iFTAfTriTrGt.ti 1 
CALL MVMR*MR ( A^HH 
CA'LL " MTMR ( T ,1 , 
CALL .MV MR MR {A ,MM 
" I F ( a1 1 , 1 )\ L E . T I 1 

CALL MVMRMR(A,MM 
CALL MVMRMR(T*1, 

^ CALL MV MR MR ( A , MM 

GO fl3 AO 

30 CALL MVMRMR(A,MM 

CALL MVMRMRdTfl 


" r 


', NN ; r ; r;r 

. ) )GG TO 2 
i , , MM , 
,NN , A ,MMa 
1 , N K< ♦ T , f , I . 




40 


50 


L = L-1 

iFt A(L,i) .GT.T( 1 
CALL MVMRMR{AfMM 
"K = K + 

IF( A( K, 1) .L T. T( 1 

r 

□ 


IF(K.LE.L )GQ TO 




IF( L- I.LE .J-K )Gi 
IL ( mT^ I 
_ lU ( M 2 ^ 

M*M + 1 
GO Tj 80 
60 IL ^M ) =K 

“ IU( M) *J 
J= L _ 

M 

GO TO 30 
70 M=M-1 


V)'GG TO 4 
,MN , A ,MM, 
^ih, A , MMVl 
, N‘ N ♦ T , 1 ♦ I 
) ) G 0 TO 4 
,K'N,A ,MM, 
N N* AVMM,T 

,NL',T ,1 ,T 

, ^i N , A , M M ♦ 
■, NN* 7A 

5 )GG TO 4 

, NN , TT ,1 , 

) ) 0 n TO 

3 0' 

TO 6C 


J »1 

0 

1,1 

, 1 ) 

J,1 

o'" 

J,r 

, j )' 

J,i 

0 

I ,i 
,i ) 

J, i 

K, L 
I ,K 

0 

L ,1 


) 

J) 

) 

J )^ 

K 

J ) 

) 

) 

)' 

) 




80 


90 


IF( M. EQ .O)KETUR 
!= ilTm ) 

J= I_U( M ) 

IF ( J- I. GE . I i) GO 
IF ( I . EQ . I I ) GO T 

-r* 

1 = I-l 
1=1 + 1 


N 


T G 1 0 


0 






■i»kri 







I 

IF! I.EQ.J )G0 TO 70 

CAL L HVHRHRCA»MHfNNt T, ltI*l, l ) 

IFf A( Itll .LE.TUnOG TO 90 

K« I_ . ' ^ 

100 CALL NVHRNRUtNN«NNfAtHM»Ktk>iT 

IFCTfll.LT.AtK.lhGO TO 100 
_ CALL HVHRMftfTrltNNt AfMH» ltK»l) ' 
GO TO 90 
END 


SUBROUTINE MVMR HR ( A . H A . N « B t H B # I A . IB) 

DIMENSION A(MA,N) ,B(MB,N) 

DO 10 J==1,N . 

10 B( IB, J)=A( lA, J) 
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SUBROUTINE DPMMV^XfYtM,N* ICOMB»K< 


C 


c 

c 

TO MOVE PART OF A DOUBLE PRECISION MATRIX 
BETWEEN 1 AND N OTHER THAN ICQMBtKf...* 

SPECIflEb BY 
IC0MB3tK< INTO 

INDICES 

0. P. 


c 

c 

MATRl X y. 





DIMENSION ICOMB%K< 

DOUBLE PRECISION XXM t N< * Y %M • N < 




c 

I#1 




L#1 

00 10 J^liN 

IF%I.GT.K<GO TO 40 
IF%J, EQ. ICaM8)«;I<<Ga TO 20 

40 

30 

DO 30 JJ#1*M 
Y%JJ«L<#X%JJ« J< 





L#LU 
GO TO 10 




20 

10 

ItflU 

CONTINUE 





RETURN 

END 




SLfiROUTlNE LNLLS tWf Xt Y| GPlf N£RR» NP » NDPf NDIN» EP5» 




POR NONLINEAR PROBLEMS 


m V tia tut At I UN 


u 0 uB~L t P R fCi S i UN X f 
DIMENSION wm 
T3TA TA NE Alt^A^ntl NT 

CCMMCN /PRINV/ INV 


Nl^^r r Xtftw»3yt 


IF (M(l ) .GT* 0.) GO TO 10 


rfavnn iiHtik I ■ A iiii VTi j ■ 1 4 M 


I LP * NOP * NOIM ‘ 

Tj D ■ 5 ' 1 » rr rtrP" 

H( I I » 1,0 


HANDLE LINEAR AND NONLINEAR PROBLEMS DIFFERENTLY 


NONLINEAR PROBLEM — 


Nut M r xjf f ' rMiDD t » "~nrf 


“““ rwKr- . E or 2 ) utr td 

IF (IMQDE . EQ, 1) CO TO 35 


» L j I ruj^ I.U » Cf' VC nn. c 

DC 20 I »1 ,NP 

— . — rf!— rr^6T~t 7;~i 6 ' ^ 

16 CGNV * DABS ( TB(I ) / CPU Il» 

' & rnu'“i8“ — ■ ■ — " — 

17 CONV = DABS (TBd)) 


II ACUIfT tvi* ^ r ^ 9 VW IVi 

CCNTINUE 


CCNVERGENCE NOT Y5T ATTAINED 


ur L MIX V*' 1 » 

DO 30 1*1 tNP 


CCNVERGfcNCE HAS NOT ATTAINED WITHIN SPECIFIED NUMBER OF 


I C ^ M I 

NEKR • 3 


..yivwf nii» 

inO FORMAT (20H001D NOT CCNVERCE IN»Uf 






c 

MAKE FINAL UPDATES OF GPl 




■"T5 — 
40 

GPU I ». -GfLlia T + 'TM 1-) . ^ 0. ^ " .. 





IF ( I >/V 


0) GG TO 55 


FCRHAT {//?CHO INVERSE MATRIX 

cnr~50~r^TTi'P — 

i^RITE (6,1^2) (XX(I,J»,J = 1,NP» 


! K in u f i K cjur^«"0 ^ ; 

R FTUR N 

-SE^' 0 ? rOK-TINEAR ’ P frCB CE"M 

I N'QnL = 1 

TrUISTr T’s-nTTF’^ 

G P 1 ( I) = 0 . 

-rrtr TTrnrs ““ 

NGRMAL MATRIX WAS SINGULAR 

FORMAT ( 1 6H FSI NGULAP. MATRIX) 
"TTETURTNi 

END - ; " 



^T^76 











SUBROUTINE GAUSS (W, X, Y, GPl, NERR , NP , NOP, HjH %Ui. 


VECTOR' LEAST’ SQUARE^S SUBROUTINE 


^‘T 


sv. ‘. w 


DOUBLE PRECISION X(l), Ydl, GPU 1 ) 5 ; T^( l-iU>: -i. ' W 

^ DOUBLE ”PR'EC'rSI GN'-^XX (BTVW)''^'^ ^ 

DOUBLE PRECISION A( 30 , 30 ), BOO), DERIVI- 60 ), NORM, F I< 2 ^Tji (t )« H I 
- -‘D IMENSION ■ - ■ - 

C aa 

e TFt-FlRSf NDIM 'ELEMENTS OF AND ' Y' AR E'FOR TBE' TT R’STflDBS E^V AT fON^ J' ’'" 

C THE NEXT NDIM, ARE FOR THE SECOND, ETC, IF THE INDEP^NpENJ TU ; > 0 

X“ -^ARTTTBLFT S ~ A "^WCTOTJT ' A“^TT 4 TXA R ^ rOTJVBNTT 1 JTr~rS^ UBSTERV^ D WOK' 1 ^ ^ 

C ' - T.T 4 ^ J 

C CURRENT" FI MEN SI CN'S ARE.^ fCTR WD I' M^'i > FOR^vD^BS ERA/AtlONS' WITH'" ^ 

C HIGHER DIMENSIONALITY, THE DIMENSIONS OF FI, YO;i^AND'Ml^^eftHAPS 5 ‘^-- 

■T'"-“D-ERTV MUST BE T NO'RE AS EDT"' 

C _ -■ 

'■"" ■ ■ C DM Mn N 'TmWR^N/v ' ' V MTTW"'^ ' ' '>' mt ^^TYTT^'i L ' ' "T^^ wLf A" Y'm^T r..;; 

C 

- ■■'•'• ■••■ ■•••••'’• — ■ : -f -y, '-^'y ‘jf--''*';/*? ' 

C ASSUME NO ERROR INITIALLY 

■■"■■' ■■• ■’-■■ '■ • — ‘ "• — ' ‘“'W 

NERR = 1 : ^ h 

C INITIALIZE A AND B MATRICES ' ■* 

DC no L = 1 , NP A 

V i" “ '■ -■■ ■ ^ ■■■ - ^ " --■■ ■"- ■ "• 

DO 1 1 0 M = 1 , NP : w ^ . 

"■"a-TG ■^w(:rrwT"^ vr'^ '^ — " — ^ ^ 

c *: 4 ' - T^o: tr «viA nm¥, 

'T'TTR''T'ArH''’TBSH RVATrFN'^' NB" ('010 ) 'CSTTlTAf t S''AW" uE'R'I TaTTV^^ 

c 

'X‘ "E LETIT'NTT. ^’ 

C _ ^ _ 

c _ _ 

VC) F' 

C iAil )? 5 P! 2 « 3 V^I 

■■ e- ' -T KF * P •rRST TsrDl‘'M ‘^E'rE'ML"NT 5 “ 'D F Dt' KT Y*‘ A KF 'T‘A R T I AT*" D'ET' T V’ATTVTS" OT — “ - 
C SUCCESSIVE VECTOR COMPONENTS WITH RESPECT TO THE FIRST* ft iT id All 

■*C:"^"'P*A-R 1 A 1 i'rTE-R‘T* ■’'THL'"^'Tt'rND”' 'ND*rM^^ P ’A R 7 1 " AL S'" W TtlTirETrErT"'^^ t W"^~rT o T ■^‘'™ 
C SECOND, ETC. Sit DO 

.■ 

GO TO ( 1111 , 1113 ), IMOOE _ _ 

"V - fir .' ■"■' rj H-r ■l-lfl latTIfay^'^fri'TI^ r"?- 

C DIRECT CALCULATION OF PARAMETERS fiH T 

nil DO 1112 1 = 1 , NDIM il;;U?S>l 

OH 3 


ni .TO — ^ 

" ' f A %ti 






O'' ■ .rjo 

.. .. ... *T' 3 Tf' 


§TH 77 


‘; ^ «g-uv;i o ( I L| ^ Jf j (u- ««; 




1119 CCNTINUE 



LSU8 « ISUB t 1 

* — o giivfKBUBi * fdauBi * ^ ifu 
nSUB « KSU6 - NOin 

Dti it T~ir « K » Tn> — 

r^SUB « HSUB * NOIH 



c 



f 


112 • AMinl 



C 

c 




J[h V6 « Sion tii>S iUCCtSSfUL. 
114 DO 119 1«1(M 






SlBRPUTlNC SU8RT (J, X. CPti OERlVt VC) 



oEtivm « x(iai 


DEAivnn» « 0. 

l \ »■ - ■■ ■ ■■ — -^>--- 

Ofl!V(U» ■ l.OOO 

» « W4!f * » 6M t »^ 

YC(2I > &Pli3l • xnn * GPl(^) * X(I2) ♦ GPK6) 






X-4J7 r«<s>-'-vwtrV->s»«s-^u»'w ^r^**«rA ^ C^’ )|i,^-^^wf5L--f .•j^;«7*siJivt,£FkV Jcl ^ ^ w »^f- -narryii c<- /> jC~»-v*<'Cr nf '.•.' •*■«» ’ * */»■ '•«% ■* Vr-' 4 .o - <• * 1 ' W X M W>W^8 ^ 

C JK = DOT { B( 1 , J) , AU ,K) , N) ‘b 10 02 9C0 

“I DU i'M'T=i7R rnnBcro^o"' 

d(I,J) = 3{T,J) - CJK * B(I,K) *■ - • ■■^eiQjBlQO 


L 


3 Dr''CGNTIf^aE 


b lU'Jb^dUo' 
Bia03300 


rrro — c c N n NUF 


B 10 03400 
• BIUOBSQ'O' 



u u ^ V j 1 =17 N 


b IJ UBbUU 

b.J..Q.C 3.700,.,. 


l»w. U . . LI ^ 4 1 TI-.T .. . .^a * . . V ^ -T-^* . -- w. 

NCRI* - NORM + {DGT(B(1»I)» A(ltj) 

, 

t N i AM I KjO ( 1/ J » J / 1 ) )^ ’fk 

BIO 03800" 
BIQ 03900 

ITGRR = DSQRT(NORM) 

IF (NORM .GT, ((a.o^NITI <' £P5>> 

GO TO 200 

BIQ 04G0l' 
B iOO^lOO 

r 

DC 5 C 0 I = 1 , 


' b mu'^zrcT- 
BIQ04300 

, -r ■ D Q ' SC O' J = I 7"N" ' — "" . * - ^ V- - - , . 

N SA = 6( I , J ) 


b ■‘1 Q O'** Q'O 
blQOABOO 

A.V- fO'I' ■” ‘ S't Jfl) - 
B ( J ,I > = NSA 


8 1 0 Oho 0.0 
8 100^700 

















DOUBLE PRECISION FUNCTION DDT (X, Y, N) ri/ ^ 7’’" ‘T 7 

. D0T05300 

UUUbLt PRECISION X, Y 

DIMENSION X(l) , YU) , . 

DOTOS^OO 
DOT 05500 

' DOT = 0.0 

D0T05600 

DO 6C0 K=1,N 

D0T05700 


0QT05800 

DQT05900 

C " '' • 

DQT06G0C 

DOTOblOO 

END 

DQT06200 











5-4. GEOMETRIC CORRECTION 

1. NAME 
GEOCOR 

2. PURPOSE 

Apply geometric corrections to large data sets. This program 
implements the aftine transformation. 

3. CALLING SEQUENCE 

This is a main program. It is currently on a partitioned data set 
as an executable module. 

4. INPUT-OUTPUT 
4, 1 Input 

The following input parameters should be supplied on data 
cards according to the formats and read statements indicated 
below. 


READ 100,A,XOP,YOP 

READ 200, NREC,NEL,INTPL,INVFLG,SCALEX,SCALEY 
100 FORMAT(6E12.3) 

200 FORMAT(4l6, 2F6, 1) 

where 

A is a 2x2 matrix defining the geometric transformation. 

XOP, YOP are the shifts defining the geometric transformation. 
NREC=Number of records in the input image. 

NEL=Number of pixels per record in the input image. 

INTPL is a flag indicating the type of interpolation to be used 
in producing the output records, (0: nearest neighbor, 

1; Bilinear, 2; Bicubic). 

INVFLG is a flag indicating whether the given transformation 
should be inverted or should be used as supplied (1 for inversion). 
SCALEX=Number of pixels per unit distance in the X-direction. 
SCALEY=Number of pixels per unit distance in the Y-direction. 
Note that SCALEX and SCALEY are floating point variables. 
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The input image data should be on Unit 8 with one record per 
scan line, NEL pixels per record and one word (4 bytes) per 
pixel* 

4. 2 Output 

The output of this program will consist of a printout of the 
coordinates of the extremities of the output image, the input 
and output image sizes, the desired transformation matrix 
and shift vector, the implemented transformation matrix and 
shift vector (which in some cases, could be different; e*g» 
when a 70^ rotation is desired, a -20^ rotation will be per- 
formed instead and the result will have to be rotated by 90^ 
using a transposition progTam). Also, the inverse matrix 
and some implementation details are printed* The output 
image will appear on Unit 10 in the same format as input* 
Since the image after geometric transformation is not 
necessarily rectangular with the edges parallel and perpen- 
dicular to the scan lines, the "exterior" is filled with zeros 
and the output is stored as a rectangular image. 

4a 3 File Storage 

This program requires space on two direct access units 90 
and 91 depending on the core size supplied (MAXC, the 
dimension of the array IX), the input image size and the 
transformation desired. Currently 1500X1500 word direct 
access files are provided for. If these are not sufficient, 
the program prints an error message, specifies the number 
of records and words per record required for work areas of 
input (90) and output (91) images. The user should then 
change the DEFINE FILE statements and the values of 
NRW 90 , NRW 9 I, MAXR 90 , MAXH91 in the source program, 
recompile and run the job. Here, NRW and klAXR refer to 
the number of records and number of words per record, 
respectively. 

5. EXITS 

No abnormal exits except as described in Section 4,3, 
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6 


USAGE 


The program is in FORTRAN IV and implemented on the IBM 360 
using the H compiler. The program, in its executable form, is in 
the user’s library. 

7. EXTERNAL REFERENCES 

As indicated below. 


Calling Program 

Programs Called 

GEOCOR 

ROTATM 

ROTATM 

ROTATl 

ROTAT2 

ROTAT4 

ROTAT3 

ROTAT5 

ROTAT6 

ROTAT7 

ROTATl 

VMOV 

ROTAT4 

ROTAT3 

ROTAT5 

READER 

RITER 

MOVVMR 

SVSCI 

ROTAT6 

DOT 

ROTAT7 

DAWN 

ROTAT3 

DARN 

READER 

IRVCON 

RIVCON 
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PERFORMANCE SPECIFICATIONS 


8. I Storage 

This program is 120840 bytes long (mainly due to array IX 
dimensioned 30000 words). Including external references 
and buffers it needs 184K bytes. 

8, 2 Execution Time 

The time is largely dependent on the output image size 
(which is a function of the input image size and the trans- 
formation) and the type of interpolation used. Typical 
times for various output image sizes are shown below. 




EXECUTION 

INTPL 

OUTPUT IMAGE 

TIME 


SIZE 

(MINUTES) 

0 

600X600 

1 

0 

1600X2400 

10 


8.3 I/O Load 

None except as specified by Section 4, 

8.4 Restrictions 
None. 

METHOD 

A detailed description of the method used for handling the geometric 
correction of large images is given elsewhere j2 l]* Here, we shall 
confine ourselves to the discussion of the scale factors SCALEX and 
SCALEY. 


Suppose a matrix A and XOP, YOP are supplied to the routine 
ROTATM, Then the transformation applied is 



where XP, YP are the coordinates in the transformed system and 
X, Y are those in the original (input) system. 

Now, if the output image should be enlarged by factors SCALEX 
and SCALE Y in the X and Y directions, we should modify the above 
equations to 

fxp] fsCALEX 0 1 Ia r^l + ( 

j_YpJ ~ L 0 scaleyJ ) [yJ YOP J* 

As an example, consider the case where the matrix A and XOP, 
YOP supplied to this program are the six parameters determined 
by GEOGREF [22] , Then the transformation yields the Landsat 
pixel coordinates in terms of UTM coordinates. If the UTM 
coordinates are supplied in kilometers, the matrix A will be in 
Landsat pixels per kilometer. Now, if the data are to be corrected 
to UTM coordinates, we should supply INVFLG=1. Also, the 
resulting transformation will yield one pixel per kilometer. If 
it is desired to have, say 20 pixels per kilometer (a convenient 
scale close to Landsat resolution), we should supply 
SCALEX=SCALEY=20. 0, Also, sometimes it is desirable to have 
line printer plots on which the physical scale in the X and Y 
direction are the same. But line printers generally print at 10 
characters per inch and 6 lines per inch. Thus, to get the same 
number of kilometers per inch of plot we can choose 
(SCALEX, SCALEY)= (10, 6) or (20, 12) etc. 

10. COMMENTS 

It is possible that this program will exceed the estimated time. 
However, to get a better estimate of time needed for a subsequent 
run, the printed output provides an indication of how many output 
records have been processed. The "number of partitions" multi- 
plied by the number of records in the output image is the total 
number of records to be processed. "Partitions" and "column 
groups" are used synonymously, A message is printed after 
processing every 500 records in each partition. 

11, LISTINGS 

This listing of the program, the associated subroutines 
are attached at the end. 
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TESTS 


The program has been tested thoroughly for several sizes of 
images and various geometric transformations, A sample 
output is attached. 


c 

c 


CG^ A N! -Jig- 4 ^ I Y r.t^nMFTP r r rnRRFrTinM 


XAXiU 44 A-XC 7 -^-aA 7 - 


GEo Cq^ 


DIMEiNSIij?^ IX{ 3000 0) ,A(2 ,2) 

■ Li.]G I X Ai^-l-LX <-44 ISiOiD - 1 LYXl-SaO-X 


?QUIVALENCE ( IX( 1 ) tLX( 1) ) , ( IXnsOl ) ,LY ( 1 )) 
UEFiN'E FiLt 9.o( I qon»i r.ayqr*) 


CEFI.vic FILE 1FGC,1 500,U,IAV91) 

COMMLfNi/v'i'^.'SDSi^/NRWOC ♦'^:AXRQ 0 ,N.^W 91 , MAXRQl 

=..i.. 5 ^o.a 

t=l 50 0 

..AA C= . 

XR9 1=1500 


-^HL 


X- 

C 

C- 

c 


RFAD Tk ANSFURMATI PN ID BE U 5 F 0 

:^A.LR4. X XaiL». YijP- _ 0£iL I ME - -IH.E-^I R.. A ..L'5 F 0RMAT4X,M- 


100 
-C 


FORMA T ( 6£ 12 . 3 ) 


RFAO IN IMAGF 3 IZF AND THE TYPE OF I N TE R P C L AT I GN TQ BE USED 



xnp=-xpp 

_ _ Ynp = - YPP 

50 CONTINUE 

C PEKFORM COKRECTJCN. 

CALL RGTATHd XfMAXC ,NREC ,NEL,A,X0P,YGP,8, 10,NRECG,NELQ ) 

— 

END 188 






r 


~ "5UBirQUTTWt 1<0rA TflT fl^SrXC t WRfC t NE i. *l^M7\T7XTDr, YFO^~NTAP T, NTAPDT 
. NRECa,NELO) 

' c ■ - - -- - .. 

DIMENSION IXIMAXCI, AMAT{2,2) 

nJMMONAAFTNTE/AI 2,21,6(2 ,2 I , X DP , YOP , m PL , I A ( 2 , 2 1 , ILQ , I HI , JLO , JHl 
C0MMCN/RQT56/IR1NIT 

rU>n^lJTJ7WRin)3K7TgW9 0,MAin?90~il^irim:,^^^ ' ' ~ 

C 

“C ■ DEFINE FIUE 901 NR W90 ,M AXR90*'4 , LTI AV90 )“ “ 

C DEFINE FILE 9 1 ( NR W91 , MA XR9 1 *4 , Lt I AV9 1) 

' c ^ — . 

_ C . _ __-CC M PUTE OUTPUT IMAGE ARRAY 51 ZE . 

WRITE (6,1000) 

~ CALL ROTATl (NREC,NEL,AMAT,"XPO,YPO,N‘RECQ,NELa) ' 

WRITE (6,1010) NREC ,NEL 

TjRlTE'(6,T10 0) NRECO‘,NELO' ■ ' _ 

WRITE(6,1200) ( (AMAT( I ,J) ,J=1 ,2 ) ,I==1 ,2) ,XPQ, YPO 

—RTflTE (Sazi 0T( ( A( I , J) , J=TT2T ,1 = 1,2) , X O PT^THS” 

WRITE(6,1220)((6(I,J),J=1,2),I=1,2) 

”1000 FERMAT' riHl) " ' ' ^ ' ' ' . - - . - . -- 

1010 FCRMAT(22H input PICTURE 5 I Z E^ ( , 1 5 , 1 H , , I 5 , IH ) ) 

TT^n FDRMAT(22H OUTPUT PrCTCFRF ' 5 1 ZE^f , 1 5^ , 1 H , , I 5 , THl T 

1200 FORMAT(///30H OESIREO TRANSFORMATION M AT R I X , 2 ( /2 E 15 . 4 ) , // , 

,21H UfcSiREU SHlhr VELIUR ,2(/E15.4 I ) ' 

1210 F0PMAT(///34H IMPLEMENTED TRANSFORMATION M AT R I X , 2 ( / 2 E 1 5 .4 ) , / / , 

” .25H IMPLEME NTEir SHIFT' VECTOR ,2 (/E15.4)T ' ^ 

1220 F0RMAT(///1 5H INVERSE M AT R IX , 2 ( /2 El 5 . 4 ) ) _ 

C COMPUTE DIMENSIONS OF INPUT ARRAY WHICH CAN BE HELD IN CORE AT A 

-5TJD NUMBER^UF pari IT 1 UN S “RE UU 1 H E D."” 

C 

‘MAyCP = HAXC-HAX0(’NEL7'fTE^L01' 

MAXCPl =MAXC P+1 

■ ” CALL ■ ROT AT2 (MAXCP ,NEL ,NR:,'NCr,“NC&P) ' * “ 

WRITE(6,123CIMAXC,MAXCP 

. - iT { I NT P L rEl3 . 0 ) VR I TE ( 6 ,T2'40 ) ' ^ ^ “ 

IF( INTEL, EQ. 1 ) WRI TE (6 ,1 241 ) 

IF( INTPL.EaV~2l WRITE(6,1242) 

WRITE! 6,1300 NR,NC 

WRITE (6,1 4C0) NCGP “ ' " - - ----- 

1230 FGRMAT(20H RAX, CORE SUPP L I ED = , 16 ,/ , 

,37H MAX. CORE AVAILABLE FOR INPUT ARRAY=,I6) “ ' 

1240 FCRMAT(//38H RESAMPLING METHOD NEAREST NEIGHBOR) 

1241' F0RMAT17/44H RESAMPLING METHOD— B I L I “N E'A R “TNT ERPUL'A T ID WV~ 

1242 FCRMAT(//44H RESAMPLING METHOD BICUBIC INTERPOLATION) 

^ 1 3 n C F0RMAT(27H TEMP. 2D CORE ARRAY S I Zt = ( , I 5 , 1 H , , I 5, 1 H ) ) 

140C FCRMAT(19H NO. OF P AR T I T I DNS = , 1 3 ) 

X ' “""■■■ ■ ^ ^ ^ ^ ^ ^ . 

C FIND NUMBER OF WORK RECORDS AND LONGEST RECORD LENGTH TO BE 

C WRlTTEfrON AUXILIARY DISK MODULE FOR I IVT ERMFOT ATE miT PCTT. 
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f 


t 


c 

r 

c 

r 


1500 


1600 


r~ 

50 


C 

r 

X: 

C 

C 

c 


r 

c 

tr 

-c 

c 

r 


20 

i-O — 
1 70 0 


CALL KUIA i<f INCbKfNL f NKtCUy NtLLf MAXKtNKOUI » 


F INIT"AND" MR INI SIZfc UH D 1 R fcmt.Ct'i>S WURKHLE6 REUU1RED“FUK iT^Fl 
OUTPUT. 


NELOI=NEL-I FIX(B(2,2) + FLQAT(NC-4) ) 

IHnCGk.l!:. IIUU' 10 b'O 

PRINT 1500» NREC ,NELDI f NRQUT *MAXR 
IF(NR1:C. Lt. NRWyO. AND. NE LD 1 . L E .“MAX R9r. 

AND. NRQUT. LE. NRW91 .AND. MAXR. L£. MAXR91 ) GO TO 50 

NRECD = 0 

NELQ = 0 

PRINT 1600 ^ ; " 

FQRMATI* NO. OF RECORDS IN INPUT WORK FILE=M5/ 

• NO. OF WORDS PER “RECORD" IN INPUT WORK FiLE=*I5/ 

' NO. OF RECORDS IN OUTPUT WORK FIL£=*I5/ 

« NO. O F WORDS P ER RECOR D I N OU T PU T W O RK F IL£ =»r5 1 

FORMAT!//* ERROR CONDITION IN ROTATf^. SUPPLIED WQRKFILE SPACE I 

I NSUFP ! C! E N T . ThEREFGRg T HE PROGRAM— RETURNED WITH NR £C£r = N 

RETURN 


CONTINUE 

D O r O- 1CG P = 1 ,NCG P 

I 20=0 
i 2i = i 

YL0C=nCGP-n*IFIX!B(2,2) +FL0AT(NC-4) i 

IRINTT = 1 ^ 

NC1=NC 

I F( ICGP.EQ. NCGP)NCl=NEf^ NC GP'^ I * I F FXl 8(2 ,'2 > + F LO AT ( NC-4 )) 

DO 20 !REC=1,NREC0 

CALL- RQTAT3 ( I CGP , NC GP , NC , I R EC , Nt LU , J P 1 , J P 2 , 1 2 , IJ 

UPDATE ARRAY IX IF NE ARY .'“TX iyT7<EATEU AS IF'll WERE 

DIMENSIONED ( NR ,NC) 

I2C = LAST INPUT ROW NUMBER PRESENTLY IN CORE. I2=LAST INPUT ROW 
NUMBER-" NEEDED FOR CCMPUTING IREC»TH ROW OF OUTPUT. 

I 21=R -0 W NUM - B E R TH E INPU l — lAPE IS READY TO READ. 

CALL ROT A T5( I 20,121, 12, 1 X , I X (TO^XC PHTTsi RE C VTIt L , NR NC , 1CGP,NCGP, 
NTAPn 


GENERATE lY(JPl) THRU IY(JP2) USING IX. 


CALL R 0TAT6 (I X, IX ,I X( MAXC PI ), NR, NCI , IR EC , JP 1 , JP2 ,?YL OC,J>IR E C, N EL ) 
WRITE lY(JPl) THRU IY(JP2) GN DISC OR TAPE CEPENDING ffN I CG.P VAI 


CALL R0TAT7 ( I CGP , NCGP , I R EC , NEL 0, NC , JP 1 , J P2 , I X ( MAXCP 1 ) , NT APO ) 

I F (MOOnRE 'C lSGOr. EQ.OlPR T N T IT O C, I F T^ C, I CC rP 

CONTI NUE 

CCNTI - NUE 

RETURN 

FCRMAT (* FI -N ISHED PRQC E SS ING * I 5 ' , « RECORDS IN C O LUMN GR O U P’ 13) 
END 
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c 

IF DET.L£.l.E-3 PRINT MESSAGE. 

“C” 

IFIDET . L E. 1. E-8) WR ITE 16 , 100 ) 

ICO 

I F ( U t T . LE. l.E-Bi PKI NT 100 ~ 

FGRMATI IX ,51HCAUTI0N«*<' REQUESTED T R AN S FOR M AT I CN MAY BE SINGULARl 


RAT1=AB 5(6(1, n/5 V2~;i J1 
R AT2 = AB5( B{ 1,2»/B( 2,2M 


1P( AbS(B( ii,l)).Lb.l»E”H>KATl = l.E20 
IF(A8S(b(2,2)).LE.l.E-S)RAT2=l,F20 


TTTt; ^ — — 

I F( rlATl. Sfc. RAT2) GG TG 10 


I A ( 1 , 1 )=0 

IA(1,2)^ 

I A{ 2 , 1) =1 
— 1-trirTrTf^ 

w=a( 1 ,1) 
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o fi) o 


20 


B ( 1 , 1 )=-B < 1 , 1 ) 



CONTINUE 


I FLG=1 

- T^ tiTZ ) -~~r ?m T 2 ) 

I AC 2 , 2) =- lA (2 ,2 ) 

B C 2 I 2 ) =-3C 2 I 2 ) 

^ C-&NT 1 -NtJf — — — - ■ ' 

I PAS5=1 

„ 

151 FORMATC/) 

■ - — — 

150 FQj^HAT(/,72H COORDINATES OF IMAGE EXTREMITIES IF DESIRED TRAnS 

J 

c Q M-p-t-Tr"-cimr D in at e s—o f top, -b^tt 0 nr^ R-t-G+rr t r S ' of the - 

IMfi&E IN the TRANiSFGKHED COORDINATE SYSTEM. 


C CNT! NUE 

-~r t -f-rr ^~xt ^ — 

w 2 = W1 +A ( 1 ,1 ) *P 

■ M^“Vrt 

W 3=A( 1 ,2 ) =^'Q + XDP 


I LC=RLO 

I TC Rt'T. G"T .T AT: OTR r 0 '."Tg c" . F' L OTCT 1 1 rO t rrt t:-='rL lj 

RH! =AMAX1 ( W1 ,W2 ,W3 , wA) 


1 r 1 - n 1 

IF(KHI.LT.n..AND.RHI.Nt.FLGAT(IHIMIHi=IHI-l 

"■ T(R I TETST^'Cirn^L 1J7TXT, k F rTTTTTr 

»=CPMAT{/,8H TOP RDW,F10.2,3H GR,I6,11H dJTTQM R0W,F10.2,3H UR,i 

'~¥T^T 72 T+rrP — 

W2=^1 + AC 2 ,1 )*P 


W 3 =A ( 2 ,2 > =!'Q + YGP 
^3=A ( 2 , 1) + W 3 

■■ ■■ K 1 0=“A Y IXTrCvn T w2“, \<3 » W'i I 

J L C = R L □ 

m Rr:j 7 ' ct vo rA'TTrjvin:T'. 7 TE ."FniATT'jnj- r i j l o =Tjr[TF'T~‘" — 

R H I =A MAX 1 ( W 1 , /^2 ,rt3 , rtA ) 

TF(RHr.LT.n..ANO. RHI.NE.FLGAT(JHI)|JHI=JHI“1 
- vr R rTFt e-^-3 or rnt ay j-itJ-rRH r j h r 

FCKMAT(/,l.2H LEFT C 0 LUMR , F ID . 2 » 3H UR,Io,13H RIGHT C l!L UM N , F 1 0 . 2 , 

! F ( IFLG. 3 Q. t. CR. I P ASS. EQ. 2 )GD TG AO 
rtRITF(6,151) 

■ WRI TE (6, 3F^y- -- - ■■—■- 

F Pr<MA T( / , 5AH CGJxDINATES OF EXTKEMITIFS OF IMAGE ACTUALLY PRGr)U 



r 


) 

■ " ^ ( 2 7ZT -TAT 1 V 2 y^ Tfira ,1 J ‘ 

rrt=IA(2,2)/IDET 
■“ TT( 2 , T) = r ATT,n /I D£T 
IA{l,n = TW 

r5n,2)^T^Tl ,2)/rDET 

I A(2,1)=-IA(2,1 )/IDET 

wT’^LTiATc TTrrnTrr^A“rr7Tr+FrT7ArriA (If “ 

i^2 = rLGAT(IA(l ,l))*A(l,2) + FL0ATnA<l,2) )^A(2,2) 

W T^FL lTAT h a { 2 ■,! D « A ( 1 , 1 1+ F LC AT n A H , 2 ) ) A ( 2 » IT 

WA=FiaAT( I A (2 ,H ) «A( 1 ,2)+FL0AT(IA(2f2) )>^A(2r2» 

- , 1 

A(1,2)=W2 

A{ 2»2)=r(A 

f^rr=Fx-airrT rArrrrT ) ^‘KOP'+Fua Arri ativzt ) *v^op' 

W2=FLJAT( I A <2 ,1 n «>XGP+FLG AT( I A(2,2n-YQP 

7rp=-;n ' ■ 

Y 3 P = W 2 

4 3 CCiV'TMUE 

■ “TTECG = rHT-narr 

Nt LG= Jhl - JLG+1 

■ ■ 

END 
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non 


■S'UBRIDUIKsJh 'HD IAT3 ' (TO, FrNTlSPVTi'r;’ rkcUV N t X 0 ,'JF1 , aPTTTzVTF L Gl 

FOR "T^VF^^~D■t^^FaT~RECaPO' XIU'MB'XIT TRXC'‘XNX“FaRT IT ID1X ¥UIX&ER''ICGP TTO" 
FIND QUTPUT WORD NUMBERS THAT CAN BE COMPUTED AND' INPUT RECORD 


' rirPTnixjTTrFTTj fttitz, 7rrBT272 rrKnPTVffPVlwpx rrxf 2','2)7Tri}7 ihi, jlg ,jh: 
y 1 =1. +FLGAT n I CGP-1) NC-^+IF IX (B( 2, 2) m 

T-2-=yi^FFro~ATriT(>r) - — 

XP=IREC+I LO-1 


YP1 = ( YUl, ) /B(2 ,2 > +W 



KPl =HI NC ( NE LO ,MAX0 (1 , JPl - JLO+ 1 ) ) 


JP1=KP1 

~JP'2 = KP2 

I F ( ICOP. EQ, U JP1 = 1 

T^t IC'^FV-E-a;-Kt G P rjP 2 =NtLTT' 

IF( IFLG.E Q. 0) RETURN 


VP2=KP2+ JLG-1 


X2=B( l,n XP-XOP»+b(l ,2 » <'(YP2-Y0P) 



C fr» N* trt'tJ"fH AX K »' i‘i-k GUT t — 

IP(\iC:SP.:^G. DKETURN 

CALL XGTAT3 ( 1 , NC GP , NC , 1 , N tL u , JP 1 , JP 2 , I , 0 ) 

— ' M A X R = !^ fr■X^T(-^t7S XP"T ^P'2'^'P li 

CALL R0TAT3 ( 1 , NC G P , NC , NR E C G , N ELO , JP 1 , JP 2 , I 2 » 0 ) 

call sDTAT? (NCGP ,NCGP,NCfNKECCtNELu, JPl tJP2, 12,0 ) 

■■--- ,-JP2-=“JTn-t — — 

CAlL RGTAT3 (NCGP ,MCGP,NC ,1 ,NELn, JPi ,JP2, 


MAXR=MAXR-«-1 

-=-Nf-fr e 0“^ W'0-p'’-i t '' 

R F T Ij R N 




r 


si'r^^f'fTTinE KiTATSt 12’*! ,T2i , 127 rxTiTr^n^TCVTrr, ^:R ,tjc-, i cGPVi'fciiP , wt apt 

D I Mt N 5 I L N I y ( fJ R ,f'. C) , I Y ( NE U 

TCf^XL^-r 7 Par 5 ' 6 /n*sTNjir 

CC.YMC_N/;-F I NE//!( 2 ,2 ) ,3( 2 ,2 ) ,XLP ,YCP , I NT PL , I ^ ( 2 , 2) , ILOt IHI, JLU , JHI 

FIND NUPBcK GF ktCOKuSTO BE READ. 


TFf r?T.~GrT TTsTR'E C ) RE tIj R W 
NRP'aS-I2-I20 
IT iTi RH73 .TT7"(T rkFTU K PT“ 


TF rCGP='l RT'aT/ DATA F k j IT’ ' IN PDT TAPTrTX3'*ri^TA:D’ TRGR^'D 
IF NCGP.T.l AND ICGP=1 wRITE THE LAST NEL-NC+A WGRD5 uF 
nTSK"UT;TT- 91 }V 


I tv P U T U H 


~J FTTr GT . ruT TT I DTV =T]TirP I 

I F ( ICGP. JE. 1 ) 1 00 V =0 



I F( ICvP. Jt. 1. GR.NCGP. EQ. 1 ) JDE V=-.l 

NCr=T^rXT dC? ,?T + FLGAT(f.iG-3-) 1 — " 

N t L 2 = \ *= L - N C 1 + 1 

I F { I C G P . NE . 1 ) N E L 1 = ( I L GP - 2 > * ( N C 1 -i ) + 1 
I F( nJTOL.NE,0)ITYPG = l 

r=T rwjws ^ ” — 

J = I 

TFnC'GX.E j. rVCAlL' KFAOERnOE V , IY» iy,NEL,T21 ,CVITYPGT' 
I F ( ICGP . ... T. 1 ) CALL R E. AiJER ( I DE V , I v , I Y , N E L2 , I 2 1 , 1 , 1 ) 

C AT L ■■ 2 1 TO RT J O EY , T Y rM'a T,' I 2 r7TTFI-ZI 

121=121+1 


^■'TYF~TFrr - AFP'k [JFRrATF -pXFT '-C!F ”TV~TNTj“M JO fT R I N TT 7 f-2 , NkT+T 
□ = I y , 


TH kOy- 


call .^G vv TK ( I X , nr , NC , I Y ( N E L 1 ) t m GO < I k I N I T + I - 2 , nr ) + 1) 
“TRX2T.TEYTrRTC) GCrTu '^0 “ ^ 

I HE V = -l 

CALL 5V5C I ( IV , NFL ,0 ) 

'TTG — nr " ?T 

CL NT I NUF 

T STnTT^O JITRTN1T7 j-i rNRl +'r ' 

’NTW" I RT KT T'" 15" THt R GL' NUMBER I N "nr C GNTA IN nvG "TFTE"T’ 
GF THE INPUT iMACt. 






XP=IREC+I LO-1 


YGP1=FLGAT( JLQ-1) -YOP 


cru lu jpi f jyd 
YP = FL0AT( JP »+YOPl 


X Ml 1 »1 I 1 

IF(X^LT.1..0R.X.GT.P)G0 TO 20 


nr-u wrdf ii«?xp+B«i^»tfi*^YK 

I F( Y. LT, 1 •. OR. Y.GT. Q)GO TO 20 


1 = 0 

I *MGD( I-l ,NR»+1 


U-T— 1 L.U\,A 

I Y( JP )=i xn ,j» 


OU lU XU 
I Y( JP)=0 




RETURN 


IF( INTPL.GT.DGO TO 12 


Q=NEL 




XP=IR£C+I LO-1 

y p g x p-xp p 

Y0P1=FL0AT( JLO-1) -YOP 

00 101 ■ JP = JPl , JP2 

YP=FL0AT( JP » + Y0Pl 

X = BM( 1 , - l ) »XP-»-BM(l >2) » Y P 

1 F ( X. LT. 1 . . OR. X. GT. P ) GO TO 201 

Y = t5M( g ,l > »XP + BM(2 y2 ~r t »-YP 

TF( Y.LT, 1.. OR. Y.GT.Q)GG TO 201 

B = Y-YLCC 1 

I =X 



A = X-FLGAT( I ) 

A i ^ 

B =B-FL0AT( J ) 

I = M CD( I-l ,NR)»1 
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r 


I 1 = MQD( I , NR ) + l 

IY(JPI=(Al'J‘RX(T,JI+A’J'RX(Il,jn’!'(l.-BI + (Al*RX(IfJl) + A*KXnirJl))*B 
GG TO 101 

201 IY(JPi=t)— - - ' 

101 CONTINUE 

— "'“R-ETTJRN 

C 

12 ^ CONTINUE '■ ■ ■ 

D IMENSIGN H (^) ,W(^) 

P =NREC-1 

...... p. .. ^ ...... 

Q=NEL“1 
YLGCl =YLaC-l. 

)tP = i KtC + i LQ^ ” — 

XP=XP-XCP 

Y^p 1 =ruuAT< JLO-1 / - TOP 

00 102 JP = JP1 , JP2 

TP ==in:-n^irmrr^YTTpr-- ^ 

X=BM( 1 ,1 ) *XP+eM(l ,2) »^YP 

1 F ( X tT r2rr.-^ i ' X . G- T.P)GG T -Q-2? ^ -— 

Y=BHI 2 ,1 ) *XP + 3M{2 r2 » ^'YP 

1 F ( Y . C T . GR • Y . G T . U" 5 G a T U 5 0 2 

I =X 

^ B=Y-Y LOCI’ ’ — 

J =B 

... 

A 1 = 1. -A 

— b^ b-FLTJAK J ) 

B 1=1. -6 

AA1“=A^A1^ ■ “ ■ " ' ■ 

AA11=AA1+1. 



H ( 2 I = A1*A All 

^ ^ 3- , 

H ( A ) =-A*A A1 

' I =HOD n -2TWT?-r>t 

I 1=M0D( I ,NR ) + l 

- rr^^croi I r ,N'R:)-FT - • - — 

I 3=NC0( I 2 ,NR ) +1 
DO 302 JJ =1 ,A 

30 2 W(JJ)=H(l)«RX(I,JK)+H(2)^RX(Il,JKI+H(3J=5*i<X(I2rJK)+H(4)*KX(I3,JK> 

• -■ - " * -8 31-B^Bl “ ■ — - - — 

B 3!1 = BB1 + 1. 

» 8B1 - 

H ( 2 ) =B1*B B1 1 

EH 3-H=-9-^-B-l 1 - 

H ( 4 ) =-B’i=dBl 

f-y-f-jp I = i R-N0^D13Ti VC»tt - — - 

GG TO 1C2 
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202 I F( X.LT. 1 . . QR, X.GT. PI ) GO TO 402 

Y=e M ( 2 ,!) ,2 ) 

502 I F( Y* LT, 1 . , DR. Y.GT.QDGO TO 402 

g -Y ^YfoC! 

I =X 



H(2)=X-FLQAT{ I I 


I=MCD(I-1 ,NR)+1 



r i ; = y-r-L JM ! i j ; 

H( n = l.-H(2) 

1 Y ( JP ) =OQT( W, H f2) 5 

GG TO 1C2 

4 0 ? T r<JP ^ --l 

102 CONTINIUF 



■■'S L B k U U I ITTE ~RaTffTT~rT CCFTf^CCTP'," TRTC ,‘’^0 , ‘rc-; JPl , JP 2',IY7NiT AP □ » “ 

DIME_NSIGN IY(NELiJ)^_ _ • _ 

IF NiCGP = l, l-jRITE lY DN NTAPO 

T T" I C NrGP“ M R I T E ‘ I Y ' 0 D TS K UN I T 9 1 . “IF I CG P ^ N C GP RE AO PARTS 

CF IV CDRRE SPGNDI NG TO JCGP.LT.NCGP FROM DISK AND WRITE ASSEMBLED 
■TT UN'"NTATrn ~~ “ ' 

“ TF r NTC GF7 FQ . T ) GD T □ “1 0 

■ HFGFr=NGGP- 1"'- ■" 

NDAPEC=NCGP 1*(IREC-1 ) 

T^’ TTCGF. F(r;¥CFPT”GTi'~rT^ 

TALT ■ DAKF nTTV'ND AR FC+ IFUFTIY { JPT) , A'* (FF2- JP 1+ 1 M 

P F TURN 

DC ?C JCGP^l ,NCGP1 

''TATT'-R'DrA'rrnrTCGP ,T^CGFrFrrTRTTTi7EXFrKF17^FP^^^ ■ - ■ 

CALL DARN ( 91 , ND AR E C J C GP , I Y ( KP 1 ) ,4- ( KP2 - K P 1 + 1 ) ) 

■CrNTINUE 


“FR ITE fTTrAFUT 
R zTURN 
■F 7 .T 5 




n r» n 



TO MO VE VECTOR IX I NTO VECTOR lY. 


DIMENSION IX(N)yIY(N) 

IF(N. EQ.O )RETURN 

M 10 I^ltN 

10 lYfD^JXCI) 

RETURN 

END 




REAC( IDE V »X 







0 IMENSinN I X(N) ,X (N) 
DTT 10 1=1 ,N 

10 x{ n = i x( I ) 

RETURN 

ENTRY RI VCQN( I X,X »N) 


I X(I I^Xd ) 


RETURN 

END 



u i. I"! c ly o 1 u \ 

I F ( IDE V. LT, 

1 IN c u ; 

0 > RETURN 

1 r t 1 u c L 1 • i; j — IT — rv - — 

WRITPdOEV) X 

K t 1 U 
20 lOEV 

1 in T T 

TTN 

90 = lOEV 

^90 

RETURN 






SUBROUTINE 5VSCI C.U.t.N tl 5,1 

CIMENSION IX(N) 

00_ 10 1 = 1 ,N _ 

10 IX( I ) = IS 

_.RETUi^N 

END 





r 





F V €“T f-G k "GG TG N G 

D I HEN SIGN X<N) ,Y( N) 

0-GT^i — - 

DC in I=1,N 

- GeT^ OJT'^XH 

RETURN 

etrO 


5UBRUUT INF DARN ( I.pE V,lI?^EC t.y,.NL_ 
LOGICAL’!'! X(N) 

READ(..IOEX* IJ^EC ) X 
RETURN 

ENTRY OAiVNt I.DEV , IREC , V »N) 

WR ITE { IDE V* IREC ) y 
RFTUR N . 

ENTRY 5ARN( NTAP! f y,N) 

READ! NTAP I ) X 

RETURN 

ENTRY SAWN( NTAPG t X, N) _ 

WR ITE ( NTAPG ) X 

RETURN 

END 
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0.5!«-flE OC -r.<=603£-Cl 


rfAX. CORE SUPPLIED= 5CCOO 


RESA»^PLING METHCD NEiRcST NEIGHBOR 


. OF WORDS PER RECORD IN INPUT WORK FILE* 173 

I 




NO. OF WORDS PER RECORD IN OUTPUT WORK FILE* 1092 


III 1 1 1 


FINISHED PROCESSING I'^CO RECORDS IN COLUMN GROUP 


IJHMIlBllwlk'Hmilil 


FINISHED PROCESSING l^CO RECORDS IN COLUMN GROUP 2 


ELAPSED TIME 


MINUTES - 3 SECONDS - 29,20 
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GEOM ETRIC ITv.^^XSF ORMATIQX OF CURVES 
NAME: GETCl 

PURPOSE: To upply a given geoinetric transformation to a curve given 
in SLIC (scan line iiiterscciion code) format. This routine generates the 
row and column coordinates of all points on the curve in the transformed 
coordinate system and writes tliem on a direct access device. It can 
handle cases where the number of row and column coordinates produced 
exceeds the core capacity. 

3 CALLING SEQUENCE: 

CALL GETC 1(NTAPI , lYl , IMAXC , IDUM , IY2 , A, XPO , YPO , NTOT , IRC , 
IWR, I\VC , MINR, :MAXR, NTIEC) 

where 

lYl, IY2, IRC, RVR, IWC are work arrays to be dimensioned as 
indicated in the attached listings. 


NT API = Logical unit number of the input sequential data set (input). 

MAXC = Core capacity available for row (or column) coordinates 
produced (input, should be as large as possible). 

IDUM = Number of dumps on to the direct access device (output) . 

A = Matrix defining the geometric transformation (rotation, skew 
and scale change) (input). 

(XPO, YPO) = Vector defining the geometric transformation 
(translation) (input) . 

NTOT = Number of row (or column) coordinates in the final dump on 
the direct access device (output). 

MINR, M/M\R = Vectors containing the minima and maxima of the 
row coordinates in each of the dumps in the output (output). 

NREC = Number of x'ceords in the input dn.ta (input). 
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A 


INPUT -OUTPUT: 


The input, consisting of NR EC records, is in the SLIC format on a 
sequential i'ile (e.g. , output of S?nOB) 

The output of this routine consists of 2^IDUR records on a direct access 
file (logical unit 90). Every record consists of a set of row 

coordinates arranged in ascending order. Every (2*1)^^^ record consists 
of the corresponding set of column coordinates. The first 2*(IDUM-1) 
records have MAXC words each and each of the last two records has 
NTOT words. 

5 EXITS: No nonstandard exits. 

6 USAGE: The program is in FORTRAN and is implemented on the 
IBM 360/65 system. An IBM 7094 version is also available. 

7 EXTERNAL INTERFACES: 

7.1 System Subroutines: IBCOM# 

7.2 Other Routines Called: SORT, JOINl, VMOV. 

7.3 External Storage: None 

8 PERFORMANCE SPECIFICATIONS: 

8.1 Storage: 8B2 Hexadecimal locations. 

8.2 Execution Time: Depends on the image size, MAXC and the transforma- 
tion to be implemented. The timing for a test case for both GETCl and 
the next step, GETC2, is shown. 

8.3 I/O Load: None 

8.4 Restrictions: None 
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9 


METHOD: 


Initially NTOT = 1 and IDUM = 0 . For each record of input which has 
a nonzero number of boundary points, the following computations are 
performed. The column coordinates in the record are sorted in 
ascending order (this is not necessary if the input records contain data 
already in ascending order). The column coordinates IY(J) in the 
record are examined one by one. If IY(J+1) - IY(J) 1, then the rou- 
tine JOINl is called to generate a straight line in the transformed coordi- 
nate system between (I, IY(J)) and (I, IY(J+1)). Also, if there are points 
in the (I+l)®^ record connected to the point (I, IY(J)), then the routine 
JOINl is used to generate straight lines joining them to it in the trans- 
formed system. 

While handling any record, the current record is held in lYl and the 
next record is held in IY2. After finishing each record, IY2 is moved 
to lYl and a new record is read into IY2 , 

The routine JOINl works as follows. Given two points (XI, Yl) and 
(X2, Y2), the transformed coordinates (XPl, YPl) and (XP2, YP2) are 
computed using 


P'1‘1 

A [Xi] 
A 

+ 

lYPiJ 


YPO 


Next, a digital approximation to the straight line joining (XPl, YPl) to 
(XP2, YP2) is found using a routine ’’JOIN". The row and column 
coordinates of the points on this line are stored in arrays IWR and IWC . 
The number of such points after one call to JOIN is given by K. The 
total number of points computed and held in the array IRC is given by 
NTOT-1, Now, if there are any points (IWR(I), I\VC(I)) which are 
identical to points in IRC, then they are eliminated and K is corrected 
accorclin-ly. If XTOTMv M.\XC ! 1 , then IWR, PWC arc moved into 
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IRC and XTOT is sot to XTOT+K. Otherwise, the parts of RVR, IWC 
corresponding to the first I\I/VXC+1 - NTOT points are moved into IRC 
and the array IRC is dunipod on the direct access device 90 as two records 
of iciigth ?.L-\XC each. Now, the remainder of RVR, RVC is moved into 
IRC and NTOT is changed to K - (AIAJ^CC - NTOT) . Also IDUM is set to 
IDUM+1. 

After all the records have been processed, NTOT is changed to (NTOT-1), 
the data in IRC are dumped on Unit 90 as two records of length NTOT 
each and IDUM is set to IDUM-rl. 

10 COMMENTS: None 

11 LISTINGS: The listings for GETCl follow along with GETC2 and the 
subroutines required. 
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GEOMETRIC TRANSFORMATION OF CURVES - U 


1 NAME: GETC2 

2 PURPOSE: To rearrange the row and column coordinates on the direct 
access file (produced by a routine such as GETCl) in SLIC format and 
write on a sequential file. 

3 CALLING SEQUENCE; 

CALL GETC2(IDUM,IA, IDA, ISEQ, ISKIP, MAXC , MINR, MAXR, 
NWDS , IRC , NTAPO, IRMN, IRMX, ICMN, ICMX) 

where 


IDUM = Number of sets of row and column coordinates to be read 
from the direct access file (Unit 90). 

= 1/2 (Number of records on the file) (input) 

lA is an array dimensioned (IDA, 5) with MINR, MAXR, ISEQ, 

NWDS and ISIOP equivalenced to IA(1, 1), . . . , IA(1, 5), 
respectively. 

IDA is a number greater than or equal to IDUM. (input) 

ISEQ, ISKIP and IRC are work arrays. 

MAXC = Maximum core capacity available for reading the row and 
column data. IRC is dimensioned (MAXC, 2). (input) 

MINR, MAXR = Arrays containing the minima and maxima of row 
coordinates in each of the ”row records” on the input file (input). 

NWDS = Array containing the number of words to be read from 
each of the "row (or column) records” on the input file (ii^)ut), 

NTAPO = Logical unit number of the output sequential data set 
(input) . 

IRMN, IRMX = Minimum and maximum row coordinates for the 
entire" image (output). 

ICMN, ICIVDC = Minimum and maximum column coordinates for the 
entire image (output) . 
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4 INPUT -OUTPUT 

The input data for this routine is on a direct access file (Unit 90) which 
has 2*IDUM records. The input value of NWDS(I) indicates the number 
of words of relevant data in the (2*I-l)st and the (2*I)th records. Each 
odd numbered record contains the row coordinates followed, in the next 
record, by the corresponding column coordinates. The row coordinates 
must be in ascending order. 

The output consists of IRMX-IRMN+1 records written in SLIC format on 
unit NTAPO, the first record corresponding to the IRMN’th row of the 
image. 

5 EXITS: No nonstandard exits. However, there is an error exit in the 
case where the supplied MAXC is not sufficient to handle the data. In 
this case, an error message is printed and IRMX is set to IRMN-1. 

6 USAGE: The program is in FORTRAN IV and is implemented on 
IBM 360/65. An IBM 7094 version is also available. 

7 EXTERNAL INTERFACES: 

7.1 System Subroutines: IBCOM# 

7.2 Other Routines Called: VMINI4, VMAXI4, SORT, VMOV 

7.3 External Storage: None 

8 PERFORMANCE SPECIFICATIONS: 

8.1 Storage: CSC Hexadecimal bytes 

8.2 Execution Time: Depends on the size and content of the input file. A test 
for the geometric correction of TARCOG county boundary data consisting 
of 1553 records with approximately 12000 boundary points took about 
four minutes with ]\IAXC=7995. 
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8.3 I/O Load: None 


8.4 Restrictions: None 

9 METHOD: 

A flow chart describing the steps in the routine is shown. . 

Briefly, the algorithm consists in (i) reading as much of the data as 
possible into core, (ii) sorting them in ascending order of row coordi- 
nates, (iii) finding the largest row coordinate R in core that has no 
unread parts on the input file, (iv) reformatting and writing the column 
coordinates corresponding to the data in core whose row coordinates are 
less than or equal to R and (v) repeating steps (i) through (iv) until all 
the data are processed, 

10 COMMENTS: None 

11 LISTINGS: The listings for GETCl, GETC2 and the subroutines required 
are attached at the end of this section. 

12 TESTS: The routines GETCl and GETC2, in combination, have been 
tested using test patterns and on the TARCOG county boundary map. 

Visual inspection of the picture of the corrected TARCOG county boundaries 
superposed on a land use classification scanner data indicates accurate 
performance of the programs. 


I 



K = NWDS(I) 


MINRd) = MINRdDUM) + 1000000 


MINR(}} = NEXTR 


NWDS(J) = NWDSO) ~ K 
ISKIP(I) == ISKIP(l) +K 
J = J + K 


J ^ N & ! < I DUM 


FLOW CHART FOR GETC2 
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Hi wi ■iMii iiii ' I I " f' 2rt ’ 20o) - ____________ 

IM .OOQl DilliatSlON IA(20t5) flSEQ(20)»lSKlPUO),NUDSl20) 

— |*SN*' 000^ ■■ — — 4}|-HE-NS'iON~ t ~ ^l '4~' l ' 25 2 4-l'2S l -y A t2 - >2 ^-y^RC-4-500~t-2 ) -t 'tM R M C t ' 2 0 ) t 

• HlNR(20)fHAXK(20) 

UA(6UrNR0SU)) *lIAi8U»ISKIP(U) 

— ISH 000b OfcFiNE- Hire-9ei-20r500»U# i*AV90^l ^ 

ISH 0007 DATA r^TAPI tHAXC rNKEC/10t500f60/ 

— I SM- 000 8 ^ ^>ATA- A jXP^JtVPO/^. 7O7»-v7O7-tr7^-7,>7O7-T0r^e-*'/ 

ISN 0009 DATA NTAPw/l2/ * 

— |-5-fr DOl O' r~- &ArTA-tirA,itTArPO-/^eT&y 

ISN 0011 'a CALI OETCKNTAPi »iyifHAXCtI0UM,lY2»AtXPQ«YPO»NTQT»IftC» 

i— - — UK-riWe-,MtNk»HAXk-#NKEC» * 

ISN 0012 CALL S VSC U NkOS • I OUHt HAXC) 

— MH 0013 — — NHOSHOUHI^IfiaT ^ — 

ISM OOU CALL GETC2nDUH»IA,lDA«I5Ea»ISKIPfMAXC*MINRtMAXK«NW05»IRCt 

, ^ N f A P^ & r l ftHff r l R W ( -r I -^H , 4€4 1X - l * 

ISM 0015 REWIND NTAPO 


'ISN 001b Pft-INf-l-Oet~rlRttN,lRHXtieMN*fCHX--* 

ISN 0017 100 FURHATI* MlN. RDU NQ, s*I5/ 

— 5 *-f<A-)U-ftOW-ND.— ‘I-5-A ^ 

I- , * MIN. CUL. Nu. = *I5/ - 

_ ^ a.-rtA-Xv-eDtr.-N6^- *753 


ISN. 0018 NRECO-JRrtX-IRHN*l 

0019 if-LNRteO.-E'O^.OlSTOP 

ISN 0021 N£LO=iCMX-lCrtN*l 

—ISN 002 2 &U-10”I-*1-»NR€«3 

ISN 0023 READ(NTAPO) Nf I lYl ( Jl • J<1 «N) 

~^SN'0029 CALL S^ F&I 7Y 1 y N 1 1 2-rNE LO>-KMNt «-p -*- r * *« ) 

,.|SN 0025 10 WRlTElNTAPw) I IZl J) f J~1 yNELO) 


-“ISN 002b 

iSN 0027* 

-ISN 0028 

ISH 0029 

— 75N 0030 

ISN 0032 


- -ISH 0033 

ISN 0039 

--ISn 0035 

. ISN 0036 200 


-REWIND -NTAPW- 


NPAOE = I NELD-U/125tl 

-20 IP*-l rNPADE 

J1=I IP'l)*125+l 


-IF! IP . EU. Nf*A&g-rANfrrNELCl.-«^-l 
J2=ilIN0(Dl + 124»NEL01 

i • J 1 +3 CH N-1 

k2=J2 + KHN-l . . 


-PfHNT- 200,-'- K:lr>K2 

FURMA>( ■IGEDMETRICALLY CORRECTED BOUNDARY IHA&E^ COLUMNS* I5y 


■ — 0 • ~iFHR0U(»H-*-I'5y-*T^ 1 — 

I5« 0037 DO 30 l=l,NRECQ 

-•*^ISN 003 8* RtADI-NTAP W7( I Z( J l-i-J^l-yNE-LQI — 

-ISN 0039 30 PRINT 300 t I iZ( J) »J-Jl yJZI 

— 75« OOAO 300 FORM 4TU-X 1-2-5 A 1-lr ^ 


[SN OOAl 20 REWIND NTAPW 


t'SIC 0042 -^ 
ISN 0043 


-STOP • 
END 
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-iSH-QQOZ 


— Isti-000 3 — 
ISN OQO^ 


-*tHJkOur-i-Ne i N1M> 1-rtY 1 rHA*W^-PU^i fV2 . A rX Wy Y P fl f JU T fl r t <«€ t 
lMR»IWC»Hl)Jii»HAXR»NREC) 

-<HjHhi^ hyjUNl/ " l 

COMHON/JONa/KMAX 


00003690 

-OOOWOO- 

00003910 


hSN- 0005 

. ISN 

000 s 

--- ISN 

0007 -- 

ISN 

000 8 

ISN 

0009 - 

ISN 

0010 

1 SN 

0011 ~ 

ISN 

0G12 

- — ISN 

0013 -- 

I 57^ 

0014 

' "1 5 N 

0015 

ISN 

0016 

-riSN 

0018 — 


C TO APPLY A GtOHETRIC TkAW5F0A«ATl ON TO A GIVEN 5ET OF CORVES 00003940 

— C «HliSE--etltiftiH-NAT t OA-TA-AHE- A^*0-^^EN£^^Af E- Nt«~eQQA-0+NOOOO-39^0- 

DATA. THE OUTPUT «ILL BE ON DISK * CONNECTIVITY WILL BE PRESERVED00003960 

— C5 iSOLAItO-PCIUTS-rtlLL- BE-SUP-PAESSEO. 0000-3W70- 

C 

—tj OO f- I t ic -FEt E -9 0ta ^t-eex PEETEB-N O v of - B CJU - NDARY— P O ilFF- S - } y HAXC * l - | >FATeei 

Cl U.IAV90) 

- e EVl-ftND EYa--rtAXv N0«— O F t/ O K OS -EXEEC-T^EB-HI -A -N Y - ftEEOKO- O F - I N P UT^ ^ — : 

C O'N IWk AND IWC AS IN JOINER. 

— C 0^ tr « I NK- AND tt A XR HUM b Efr 0 f” tX PEEFCfl— S06 0 1 V I Si 0N^~ OF“OA T Arfl-EfOEO-^ : 

C TO compute all boundary data. I.E., EXPECTED VALUE OF lOUH) 

DIMENSION-! VIH >»I ¥21 l-Fr- Al 2-r24 > I RC IM»XC-r3i-rJWTH 1-)W#C-I 1-) 

DIMENSION T(2)»TT(2) 

DlMcNSIuN ,HAXRU» 

READlNTAPllNCliUYUJ) >J==1 rNCl) 

HAXC1 = HAX£-H 

CALL SUKTI lYltl'*iMCl iNCt ,1 *TtTT) 

NTDI-^l 

IWhEC=l 

IDUrt-0 

KHAX=0 

00. IC M rNRe< 


-OODIKODB 

00004010 


00004030 


IF( I.LT.NREC)R£AD(NTAPI)NC2, I1Y2 IJ) .J«l rNC2) 
-CALL S0RTHY2>i ,NC2,NC2^ ,T,W-1 — 


-00004090 

00004100 

-eo&Ch^i 10 

00004120 


-i F ( « C 1 i EQ rOlHIF C uM PUT A HON S AR E NE ED E D* ^IP-TO -END- &f-LQOP-ANO*-UP-r -000 04 1 50- 
DATE THE ARRAYS. 00004160 


<5N OOlV 


lF(NCl.EQ.O)Ca TU 20 


000041 BO 


COMPUTE LINES CuRrESPONDING. TO CUNNECTEO POINTS IN THE ARRAY I Y 1 { J00004200 


“-TSN 0021 
— ISN 0022 - 
-•ISN 0023 

-rrlSN- 0024 

ISN 0026 
“*rtSN 0027-- 
ISN 0029 
—ISN 0030 - 
ISN 0031 
1:5 rf 003 2— 


^ S'Kr 003 3 — 


Xl=l 

— 

00 30 Jl=t>NCl 

-IF( JI.EOtNCU&O- TO-40 

J2=J1«-1 

~IFI-iY lFJ2 l-r(rF.-H-&eHFe-4^ 

X2=X1 

-Yi-IYH^l-1 

Y2=IYU J2I 

-CA±t— jamifXlTY I . X2-# Y2-rA-i-XPflrYIHH HAX-eiTHAXE-rNHir-rl-WfrECT-I'DlHW-lftC-* 

IhKtlWCrHINRfHAXR) 

Ne-2 . ED-. D^.OR-. I . EW* -NR EC-4- G O ' TO - 30 


00004220 

-0000423C 

00004240 

00004250 

00004260 
000042^0 


000C4260 

-OCG04290- 

00004300 


-DC004-330 — 


i-bhPUTE -t*l*fc-S-ti}KKESPUNO-H 
1*Th ROmS. 


r- — 000043E 0 - 
00004360 


ISN 0035 

ISN- 003 6 

ISN 0037 
-ISN 
ISN 
HN 


X2*I*l 

-¥l*IY!4-^-» 

DO 60 JJ=>JJ1, 


NC2 


ISN 

-ISN 

ISN 


0038 

0039 
0040" 
0042 
004^ 
004 5 


JJ2^JU-i- 


I0IF=IY2( JJI-IYK JU 


00004360 

-000043^0 

0C004400 

-00004410 

0C00442O 


ISN 004c 
— ISN-O04? 

ISN 004 S 

-IStF 0049 


60 


^6 


IFI IDIF.GT.IJGU TO 70 

-Y2=IY2( JJ ) 

CALL JUiNHXltVl tX2tY2 i A »,XP0 > YPO t HAXCl f HAXC >NT OT t lUR ECt lOUHj IRC* 

IURrI-WC-,M-tNR,-HAXR»— L 

CONTINUE 

-O-J l-*-M A XO-(-ir j J J£“ I -I " ’■ 

CaNTlNuE 

-tf^-.^^>HRge4GU-Ta-I0 *• 


0000444C 

„.0000445-0- 


00004480 
-O0Q044-SQ -- > — 
00004500 
-000045^10 
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bSN- 0051- 

ISN CC5^ 
-ISNOn53 
I SN QC5^ 

-iSN 0055 

' ISN 0C5 7 

r-iSN 0058 

I^N 005'y 

SN 006 0 

ISN 0061 

ISN 006 2 

. ISN 0063 

ttISN 0064 

^tSN 0065 
".'ISN 0066 
ISN 006 7- 

ISN 0068 

"iSN 006<> 


SUBKOUTiNE &ETC2(10UM»lA«10Atl5EQtlSKIPtHAXC.NlNR,HAXfttNND5t IRCr 

. NTAPO«IRHN«lftHX«ICNN»ICHXl 

- DIMENSION IAIIDa » 5) » T I S ) » TT ( 5 ) 

01 HE NS ION ISEOI lOA) .1 SKIP(IOA) ,H1NR ( lOA ) ,HAXR( IOAI.N mDS <10 A) • 
IRC<HAXC,2) -- — ■ 

c 

~c OEflNE FILE 90 AS IN CETCL ^ ' 

€ MUST EO'CE CLHS If2t3»4»5 OF lA TO H I NR ,HAXR t IS EO t NUOS » ISK IP . 

c- — 

C INITIALIZE ISEUt 1 Sl(l P AND N. 


' . J 0:j05 do 10 I>1,I0UH 

•'N 0006 ISEQdl^l 

C0C7 10 ISKIPI n«o 

, N 00C8 N»MAXC - - - _ - - 

' ^ U 0009 1PASS«1 

' .S' COlO ^IRHN»10**6 

I , S c: l l ICMN-10**6 

;vS 0-Jli IRHX=-IRMN - ■ 

. s O'j 1 3 ICMX«- ICHN, 

: - 0014 call VM1NI'4IMINR»I0UM,IRMM) - - - - ' 

IS 0015 CALL VHAXIAlMAXAtlOUHf IRHXI 

C ARRANGE HINR IN ASCENDING ORDER AND HAX Rt ISEQtNWOS • ISKIP ACCLY. 

‘ N 0016 NREC-0 

■i con 20* CALL SOkTUA,l*IDUM,10A «5.T«TT) ' 

' S 0018 PRINT 100. IPASS«NREC»(HINR1I1 fHAXRmtlSEQm«NWOSlI)»ISKIP< I), 

• I*1»10UH) ' - - ™ — ~ 

: ;.N 0019 100 FUKHATI//* PASS*I3t*. NUNBEK OF RECORDS DUMPED 0UT>>I5/ 

* ‘ • <• HIMR»*I6** NAXR«*l6i* 1SEQ>*I3|* NH0S>*I6«* ISKlP**l6M 

C 

- C - READ N NURDS INTO ARRAYS IRON AND ICLH FRUM DISK WITH — 

C ISEQdl'ST SET OF DATA. WORDS ISKIPUdl THRU ISK 1 P <J I ♦NWOS < J I 

- C ARE READ FROM ISEQ<JI*TH SET OF DATA. 

C 

ISN 0020 I-O - 

5 :u 0021 J«1 

I.M 0022 30' I«l*l 

! .S 0023 IWREC«nSEQ<ll*l) *24-1 

[ S 0024 - - ISKIPf -ISKIPU I 

: S 0025 K«HlN0<NW0S<llfN-j4l) 

! ■ N 0026 JKI>J4K-I 

: .4 0027 IF( I SKIPI .EQ.Ol 

•HEA0(90*i WKEC) C 1 KC(I EL t 1 1 f 1 £L*it JK 1 ) »NEXTR 

: .N 0029 IFI ISKIPI .NE.O) 

•KEAD(90*lMHECMDUHf IEL-ltI5KIPIIt(lKC(lELtl )tlEL-Jf JKlltNEXTR 

dN C031 1 F|K.LT.NwDS(IIIH1NRMI«NEXTR 

i SOOiS - IF(K.EU.NWOS<inMlNRm-HlNK<10UH)«tOOOOOO 

' .•N 00 35 IF( 1 SK IPI .EU.O) 

• REAU( 90M aRLC*U ' < I RC (1 EL *2 1 » 1 EL* J t JK 1 I 

I U 0037 IFl ISKtPl.NE.OI 
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L iN 0002 

■•i COO 3 
> ,S 0004 


-AiP^ATE -ARRAYS-I VI AND TY2^ 


>00^530 — 


— NE4 - NC 2 ^ - — — — 

CALL VHOVf 1Y2«NC2»1YU 

— CONTINUE 

NTUT*NT0T-1 

— -TP INTO T.Ed.-OI RE-TURN — 

CALL SORT 1 IRC (1 *UTOT t MAXC t2 t T t TT) 

— *R I T E < 9CH4 #R£€+ 4 1 KC 1 1 Elrrl )-r I E L » l » NT^>— — — 
IuKlC>IhK£C-41 

- - RR I re ( 9C* TRRfctd I ReUEt-r2d«t*i rNTflT-l 

1*KEC«1WREC»1 

— IDuM-»IOOH-H 

H1NR4 lDUM)«lRC(ltl> 

— HAX« <*DWVl*IAC< NTUT^l ) 

PRINT 1000. KHAX 

— WH ITtC 6,1000»KHAX 

FURHAT<6H KHAX*I6) 

— RETURN — 

END 


00004^540- 

00G04550 
- OOOG4560 
000C4S70 
000045 8G 


-00004620 


00004650 
-000046 60 
0G0C4670 
-OOOC4680- 
00004690 



. — 

ISri C039 Na0S(l)«Ni«05U)*K 

15M 00^0 — ISKIPI ll■ISK^P|Il♦K'-" - ' 

15 00^1 J*J*K 

0042 If IJ.tCiN.AWO. I iLT.lDUHKO TO 30 - - - 

C 

* — C (J-l) «0S HAVE Non BEEN READ EROH DISK INTO CORE r 

C N«*NUHB£R of mOS in cure on the previous pass out Of aHlCH N HAVE 

C BEEN TRANSFERRED TO OUTPUT *T APE# -THUS I NW-N I IS THE NO. Of-OLD — 

C UOS STILL IN CORE. 

'---C 

? : 0044 IF! IPAS5.CT.11C0 TO 40 

" ■ 0046- NR*J-1 

: ' 0047 GJ TO 45 

i , 0043 - '~40 JJ=NW-N ' ■ 

- ' CC4'^ Ny*jj«j>i 

- -• C 

C Nk^NUHBER OF WORDS IN CORE FOR THE PRESENT PASS 


IFIJ.CT.NICU TO 45 
Nl=N*l 

CALL VHOVI IRCINI.I ) tJJflRCI J»lll 

. ^^LL VHOVI 1RC(N1>2I*J3«1RCI J*2)> 

45 CONTINUE 

IPASS»IPASS*1 “ - 

C 

- C SORT ROW AND COLUHN - — 

C 

0057 call SORT! IRC*1 tNUthAXC*2tT,Tri 

' C 

• - C~ FIND PART UF DATA IN CORE TO BE REFORHATTED AND WRITTEN ON TAPE. 

C that ISf FIND MAXt N SUCH THAT IRON ( N) • LT . HROW WHERE HK0U«HIN1HUH 

C RUW NUMBER CORRESPONF I NO TO DATA ON DISK THAT HAVE NUT BEEN TAKEN 

C INTO CORE YET. 

: 00 5 8 MKQW*MINRC 11 . . 

iVi 0059 - CALL VM I N 1 4( HI NR , I DUM t MRUW) 

' : 0050 NWl*NW + l 

’ , OOol — 00 60 J*1,NW • - ■ - 

. CO 6 2 N=Ni<l-J 

00^3 IFIIRCIN,11.LT.HRUWIGU TO 50 

00.5 60 CONTINUE 

c • - - , 

C NO PART UF DATA IN CORE CAN BE WRITTEN ON TAPE BECAUSE.THE RECORDS 

C ARE INCOMPLETE. PRINT ERROR MESSAGES AND STOP. - — 

C 

^ 00 6 6 - PRINT 400,NR£C - 

. 4 0'^67 IRMN*IRMX*1 

; . 0063 RETURN 

0059 400 FORMAT!* ERROR IN CETC2. TRY LARGER MAXC. NREC»*I6J 

00 70 -- 50 CONTINUE - 

c 

C WRITE N WORDS OF COLUMN DATA ON TAPE AFTER KEFOKHATI INC. 


■, 0050 
0C5 2 
; 00 6 3 
> j 0 5 4 
.. GO 5 5 
■ 005 6 



0071 

0072 Jl«l 

007 3 -70 

0074 IFIJ.EQ.NICO TO 80 

076 IF! IRCIJ.ll.EQ.IRClJ^l tillCO TO 70 

)C78 JJ*J-Jl*l 

nrec-nrec+i ^ 

:C )0 WRlTE!NTAP0)JJt!lRClLf2) iL«Jl vJ) 

;0H1 CALL VM INI 4! IRC ! Jl »21 t J J# ICHNI 

jG32 call VMAXI4I IRC ! Jl .21 » JJ.ICMX) 

OC3 3 “ 

C034 IF! IRCUt ll.EU. IKCIJI rll'ilGQ TO 70 
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coi6 ii«iHcu*iui — - 

' 1'.!. 0Cd7 U«IKCCJltll 

1 . *; 008 8 JJ*0 ■ • 

I . V 0039 DO 90 

{. /• 0090 1 NKEC-NREC + 1 

:.;:i 0091 90 WR1TE{NTAP0) JJ» JJ 

0092 CO TO- 70 ^ r 

’ \ :093 80 JJ=N-J1^1 

I.- 0099- NR£C=NREC4-1 — - — ' • 

i',.i 0095 kRITE(hTAP0UJ»(XRC(Lt2) tL«Jl«N) 

I:., 0096 CALL VHINl 9(1RC < ICHN) . 

: . 0097 CALL VHAXI 9URC( J1 t2l • JJ» ICHX) 

C CHECK STOPPING CONDITION. IE NOT FINISHED GO TO 20 

) yi C098 PRINT 20C» NREC 

! 0099 200 ~ FORMAT {//• F INI SHED -GETC2*- NO. -OF- RECORDS* * IM 

S . OIGO 00 95 tI»l*lDUH 

' 0101 iFCNWOSUn.NE.OlGO 10 20— - 

.f 0103 95 CONTINUE • 

•r \ 0109 - - RETURN 

’.fy 0105 END .. . 


SU 0002- 

. V COO 3 

■■ . >0 9 
, ’'00 5 


OOir- 

i07 

;08 

310 

3U 

312 


— SUBROUTINE -JOINK XI «Yl »X2,Y2,AfXPQ«YP0tHAXCl»HAXC»NT0T, URECriOUHr— 

• IRCfl WR.lUC.MlNRtMAXR) 

01 HE NS ION A(2,2) flRC(HAXC*2) tlWRlUf IWCm fHINRlDf HAXR41)*T(2)t. - 
. TT(2) 

"COHHON/JONl/I ‘ - 000001-80' 

COMMON/ J0N2/KHAX C0000190 


-c-~- 

c 

•c — 

c 


D*^N iWRflwC AS 
IN TRANSFORMED 


IN JOIN. D*N MINK. HAXRU EXPECTED NUMBER OF POINTS 
OATA-1 l/HAXC+1 J. - -• -- 


00000230 

■00000240— 


10 



1 3 ■ 

- 019 



016 

— 


.018 



-)19 

— 

J ». 

•;0 20 
.021 




022 

50 

' ' 

‘ 023 
029 



»025 

: - - 


i .9 26 



027 

— 


028 



i?29 

- • 


'.030 



031 




-..Oi? 



3033 

— 

Ll^ 

u039 


■. ft. 

0035 



1 1 
•f •< 

.30 36 



OQ'3 7 

.. 

, 

'.038 

200 


iTS9 

— 


:090 



JO 91 

100 

^ ' » 

‘ 1-09 2 


% 

O093 



CALL JOIN! Xltyi*X2«y2rA*XPU.YP(l»iWR*flHC-|K)- - 
H^HINOI K*2tNTQT-n 

IFIM.EQ.O-CUTO 10 

HH=NTOT-H 

CALL ELRPTN(lNR«lUCtlkC(MHfl)»IKC<HH«2) tK.N) 
CONTINUE 

KHAX«MAXC(K,KHAX» 

1F(K..EU.0)R£TURN 
IFINTOT+K.GT.MAXCUGU TO 50 
CALL VHOV( lWR,KfIRC(NTOTfll) 

CALL VMaV(InC#K,lRC<NT0Ti2)) . 

NTUT=NTQT*K 

RETURN 

L*MAXC1-NT0T 

CALL VMuvn«R,L.lRC(NTOT,m ^ 

CALL VM0VnHC»LtlRC(NT0T»2)) 

CALL SORT ( IRC f I *MAXCiMAXCt2f TfTTI 

»RlTE(90*IxKEC) ( 1 RC ( I EL »I) . I E L*1 »HAXCI 

1»<R£C«UREC*1 

WR1TE(9C* IMREC) (lRC(IEL«2)f IEL*ltHAXC) 

IhkEC* IkREC<-1 -• ~ 

IOUH»IDUH^I 

HI6R( IDUH)-IRCn lU - 

HAXKnOUM)«UC(HAXC»n 

LI^Lti ’ ■ “ — 

k*k-l' 

CALL VHOV( IhR(LI) *K*lRCa tlH 

CALL VHGVnwCiLl} tKfIRCn«2n 
NT0T»K*1 

FURHAT<6H KHAX-I6) 

WRIT£(6,200)KMAX .... 

WR1IE(6«100I1«I0UH«HINK4 lOUM ) « MAXR < 1 OUN) . 
FURnAH/f 1X»39HNUMUEK OF INPUT HECUKOS PROCESSED* 
1X»16HNUNBLR OF 0UNPS«l6f6H H1NK«16.6H MAXR* 
RETURN . 

END 


•OOGOCI2^0-- 
00000270 
-00CG02 80 — 
00000290 

Q00C0310 
O00GO320- 
00C00330 
C0000390 - 


0C000370 

000C038Q- 

00000390 


00000450 


00000480^ 

00000490 


16/ 

16) 


00000520 

00000540 

00000550 

000O0570 

OOOU05BO 

00000590 

G0000600 

00000610 


221 



2 


SVBiaJimni:*"2iriTJTX17Tl rX2;ir2TA »'XPtrrTFC,l KlCiTWCtK) 


V 0 ■' 

' 5 
. t> 

, •> 

I 

* 1 
\ J 

. ■' \ '• 
: 1 > 
1 T 

i 3 
1 / 


-I .! j 
■ ' 

' i J ''■ 

• / 
. ■ o 
• ■ ■ / V 

.'J 3> 
32 
^ "• J '3 
:nA 
*-3 

. V J o 


c 

■ , C lu fl«y- lJ,’Ti:Gt.<— X.t:LKU-lr,ATJ:i Ui- PuITjTS NtAKtil ru r HE nut "JU-fUtlHr^ ‘ 

C (XlfYiJ (A 2 iY 2 ) iN Trie T^rthSPuKMtD 5Yo1tH «£Th CJjKUlNATe 

C - jR««5P:;r.nft fl ujv ul' vtr^." 8 V' A "AJiU ■ 1 XFL »YPu) ' ' " 

C 

C I«K ANU 1»,C SHJ'Kh U'MU MAX E XF t C T t U V ALU t ' UF -K . K* NUMBkK UF 

L P^lul^ b-N Tni: Lluc oclnttN ulVtu PulNF^* 

IKM ( bi =5 1 wK( A8S( 8 )«■. 3 *8) 

D i MF ;< j 1 LA ^ « I nK ( u * { we U ) 

XP 1 = A( I , 1 ) fXit^A £1 »2) «Y1 *XPU 

a»' 2 = A(1»1) *X2^«(l»2)<*y2*XPU 

YP 1 =A (2 »t )*Xi»Ai2 ,2 )^YI<kYP0 : 

YP2=A( , 1 J ^-X^ + A (2 ,2J ■> Y2 + YP0 

Il=n 

IF .LT.FLLAK 1 mil =I 1-1 : 

«= A.’-.AXl < XPi } 

IM... 0 T .rLLAfU^l ) I2 = W+1 

- - ■ - ■ 121 = 12-11 + 1 

a = A.iiM< rPl ,YP2) 

IM/j.LT.rLu>,n Jl) ) J1 = J1-1 

-V = AMAX t t TV 1 »tP2r 

J 2 =rt 

• 1 r ( .t . t> f-; r t u A 1 ( J 2 H~J 2 ~ U 

j2l=j2-ol+l 

XP l2 = Aui>r XPI-XV 2 ) 

- YP U =A3il tPlrYP2) ^ ~- 

IMXi'l2.LT.YPU)ou TU 1C 

■ -■ - iLuPii=( YP2-YPU/( XP2-XFI’) 

111=11-1 

K = K+1 


i7 

33 

< 

■. Ta',' 
'.■■'si 
3 

- -t t 

s 3 
s o 
A3 
. • s ? 


•■’ ) r 
■ ^3 

I :> / 

' •. I 

< -j.: 

. ■ i 


■•.7 
. .1 
i 

/ 1 
/ ' 


.* ; 
/ 


- 2C - 


xP = 1 hK ( K ) 

I X C 1 K 1 = 1 1< N D I YP 1 + ( -XP-XF n ’^rUPFT" 
L=K 

Dl. AC 1=1 ,L - - 

ir( 1 .tu. lieu rj Ar 

M = I -1 

ui= i».ci i-j- 1 kl 1 n ) 

lI=lADSljIi) - 

IF( U .Lfc. liCb Tu AO ’ 

Ii = Il-S’'/Ff ^ ' - 

L-'b' J=2,ll 


c 3"- . 
\ 31 

— 

K = •<♦ 1 ^ 

ft ) = !,.;<( in 


C 2 

ittC( Mi-s=iwc( rn + ru-rr^T3 — 


J 

AL 

COMIWbfc 


• •-•s 

— 

KFIUaN — 


>3 

10 

ji i=ji-i 




5LUPd=( XP2-XFl)/( YF2-YP1) 

' ' 


3« 


7'' 

br 


Liu >r* J = ltsl2l 

K=K^i 

II.U ft) =J+Jll 

YP = 1 ftL (K) 

I r.-f ( K) = IftftiH XPl ♦( YP-YPl ) »SLUPE) 

L=K 

Uu o*' l=ltL 

I Y n . k u . 1 1 0 Lr" 7 ir 6 C 

n = 1-1 

I 15= Ir.R n l-l hRl in 

1 l=l«c5ll I SJ 

IM I 1 .LL . ncu Tl]' 6t! 

15 = 1 IS/il 
Uu /u U = 2 *ll’ 
ft = ft+ I 

uciK) = ihC ( in 

inr.(ft) = iri.<( m + (j-i)*is 

CuUTINUE 
KL T URM 
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iSN- 0002 ' 

ISN 0003 


-S«6RUUHUe-Et*fH‘N I f*iR r-«C fl-Rfli*rICL^4TKTN 
D1KEN51QN lUftll) «I mC( 1 ) • IKOM(N) ,ICLH(N) 


— isrh 000^1 


c 

“C" 

c 

-t- 


TO ELIHIHATE C0UKDINATE5 IN UViR»IWC) NiilCH ARE EllUAL TO ANY OF 

■THE-COOROINATe-S-'lN-IlKeifrI£T.HH 

0*N IWRCKi.iWCU),- K 15 60TH INPUT AMD OUTPUT < NUMBER Of COORPl- 
“NATESt-i 

-i»G- 


ISN OOOS 30 1=1+1 


l-S-M-tJOO 6 -T TH-tr^ T.K) RETUR N 

ISN COOS W 00 10 J>ltN 

■ •“ISN 0009 IF’f T«k I 'i- V» N £« ~1-€I^MI ;H-} GO T 0 - T -0- 

ISM 0011 GO TO 20 

--ISN 0012 ~ -10 CONfiNUE r 

ISN 0013 GO TO 30 

ISN 001^ -20 IFI I .EOrK-l-GO-^-^O 

ISN 0C16 CALL VHUVI IWRII + I) tK-1 flWRlin 

"ISN 0017 ' C-ALL-VMa9-H‘«eT-I-+H ,K~lTtW€H-H 

ISN 0013 1=1-1 

- -ISN 0019 -K-K-1 

ISN 0020 GO TO 30 

-'ISN 0021 ^0 K^K-1 

ISN 0022 RETURN 

—TSN 0023 -END-' 
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5-5 


SUPERPOSITION OF BOUNDARIES 


5-5-1 THINNING OF BOUNDARY IMAGES 

1 NAME 

PEELS 

2 PURPOSE 

Starting with the output of a microdensitometer digitizing a boundary image, 
to apply a given threshold of density and reduce the thickness of the boundary lines 
by "peeling'^ their outer layers while preserving the distinctness of regions separated 
by them. 

3 CALLING SEQUENCE 

CALL PEELS (NT API, NTAPO, NREC, NEL, IT, MPASS, MDEV, 

NDEV, LX, LY, IBDY) 


where 


NTAPI, NTAPO are the logical unit numbers of the input and output sequen- 
tial data sets; 

NREC, NEL are the number of records and the number of pixels (bytes) 
per record in the input image; 

IT is a threshold on density; if IT is positive (negative) all points with 
densities - IT (< IT ) will be regarded as boundary points: 

MPASS is the maximum number of iterations permitted (see Section 9, 
Method) ; 

MDEV, NDEV are logical unit numbers of two direct access scratch 
data sets defined as indicated in the listing of PEELS; 

LX, LY, IBDY are scratch arrays with LX, LY dimensioned as indicated 
in the listing and IBDY dimensioned NEL. 


4 INPUT -OUTPUT 
4 . 1 Input 

The input image should be on a sequential data set with unit number 
NTAPI and consist of NREC records and NEL bytes per record, each record 
corresponding to a line of the digitized image and each byte, to a pixel. All other 
inputs are as indicated in the calling sequence. 
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4 . 2 Output 

The output of this program will be on unit NTAPO as a sequential data 
set with NREC records. The records will be in SLIC (scan line intersection code) 
format. That is, the first word of the I'th record indicates the number of words 
that follow and each subsequent word is a column coordinate of the intersection 
of the I’th scan line with the boundary image. 

4.3 File Storage 

This program requires two direct access scratch data sets to handle the 
intermediate iterations of the boundary data. The sizes of these data sets are 
indicated in the listings attached. 

5 EXITS 

No nonstandard exits. 

6 USAGE 

The program is in FORTRAN IV and implemented on the IBM 360 with the 
H compiler. The program is in the user’s library as a load module. 

7 EXTERNAL INTERFACES 

This subroutine calls several subroutines and the linkage is shown in the 
following table , 

S i^ERrORMANCE SI'EOLITOA ’ IQVS 

8 . 1 Storage 

The subroutine PEELS is 1458 bytes long. However, including a driver 
(whose size depends largely on the dimensions of LX, LY, IBDY which are 
functions of NEL), the required subroutines and the buffers the program needs 
approximately 70K for handling NEL =2100. 

8.2 Execution Time 

The execution time is highly dependent on the size and complexity of the 
boundary image, the thickness of the boundary lines and the maximum number 
of passes (MPASS) requested. In the case of the Mobile Bay GTM (a 4000x2100 
level II map with boundaries 3 and 4 pixels thick) the initial thresholding and 
reformatting took about 10 minutes and the subsequent i terations about 6 min- 
utes each, with a final reformatting and copying step taldng about 7 minutes. Thus, 
with MPASS = 4, it takes about 40 minutes of CPU time to process the image. 
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j Calling Program 

Program Called 

PEELS 

1 

1 

i ! 

PET 

SARN* 

VLTHR 

CMPRES 

DAWN* 

PEELER 

DARN 

EXPBDY 

1 

CMPRES 1 

1 

ISTORE+ 

- - ■ - 1 

PEELER 

1 

1 

SVSCI 
PEELRl 
PEELRO 
1 DAWN* 

EXPBDY 

ILOAD+ 

PEELRl 

DARN 

' BLSFTV 

1 BRSFTV* 

PEELRO 

IOR+ 

ICOMP1+ 

IAND+ 
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! -- 


* Entry under DARN 

+ Logical function available in the user’s 

library under a main member name LOGFUNC 

• Entry under BLSFTV 
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8.3 Restrictions 


None 

9 METHOD 

The program has three major steps: 

(i) Thresholding, compressing and writing on a direct access unit. 

(ii) Iterating to "peel’’ boundaries. 

(iii) Changing to SLIC format and writing on output sequential data set. 

9. 1 Thresholding and Compressing 

The routine SARN reads each record (of NEL bytes) of the input data set 
into the array LX. The routine VLTHR thresholds each of the NEL bytes in LX. 

A logical vector LY is defined as follows: 

IF (IT.GE.O)LY(I) =LX(I).GE.IT 

IT (IT.LT.O)LX(I) = LX(I).LE.IABS(IT) 

for 1 = 1, NEL. 

The routine CMPRES is then used to pack the information in LY into the 
first NEL bits of the array LX. The I’th bit of LX is '’set" if and only if LY (I) 
is .TRUE.. 

The compressed boundary information is then written on the direct access 
unit MDEV using the routine DAWN. 

9.2 Iterating to Peel 

The main peeling routine is called PEELER. The input to this routine is 
from MDEV whenever IPASS, the iteration number, is odd and the output then will 
be written on NDEV. When IPASS is even, the input and output designations are 
interchanged. One call to PEELER removes one "layer" of the thick boundaries 
from top, left, bottom and right. 

To decide whether a particular boundary point should be deleted (i.e. the 
bit corresponding to it changed to 0) , we examine a 3x3 neighborhood centered 
around the point. Consider the array 

a b c 
d e f 
g h i 
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where each letter represents a binary pixel. It is to be decided whether e, which 
is presently equal to 1 should be changed to 0. The conditions for a 'top peel' will 
be derived below and those for peeling from the otlier directions follow by symmetry. 

First of all, e should be a top boundary point. That is, there should be 
no boundary point directly above e and there should be a boundary point below e. 
Therefore b = 0 and h = l are necessary conditions. Suppose b h = l, (Here, b de- 
notes the complement of b). Then, we need only check whether e is a nonessential 
boundary point, that is, whether two O’s in the 3x3 array which are disconnected 
will stay disconnected where e is made 0. Connectivity, in this context, is defined 
as the existence of a path not including I's and consisting only of horizontal and 
vertical segments. 

Now, it is easy to see that e is essential if and only if ad = 1 or cf = l. 
Therefore, the condition for a top peel is that 

bh (a+ d) (c + f) - 1 . 

Equivalently, to perform a top peel we set 
e = e (b + h + ad + cf ) . 


It is convenient to implement the above equation by employing bit manipulation 
routines operating on pairs of 32 bit words, thereby performing the top-peel 
operation in parallel on 32 pixels. This is done by using the "current" array 
in place of e, the "previous" array for b, the "next" array in place of h. Also, 
the previous, current, and next arrays are right (left) shifted by one bit and 
used for a, d and g (c, f and i) respectively in the peeling formulas . 

The routine PEELER minimizes the movement of data in core by using 
circular buffers for storing the "previous, current and next" arrays. An array 
J dimensioned 3 is used to store the indices pointing to these arrays (J(l) — ► 

previous, J(2) -m- current, J(3) next) and after finishing each record, 

only the array J is updated. 

Also, top, left, bottom and right peels are performed one after the other 
by just one pass through the data (thus minimizing I/O) by storing the intermediate 
results in core and operating with a phase lag. 

When the I’th record LX is read from the input data set (see PEELRl), 
BLSFTV and BRSFTV are used to generate arrays LXL and LXR with the bits 
in LX shifted by one bit to the left and right, respectively. Next, the (I-l)th record 
is peeled from the top. The top-peeled output of the (I-2)nd record is peeled from 
the left. The top-and left-peeled output of the (I-3)rd record is peeled from the 
bottom. The top-, left- and bottom- peeled output of the (I-4)th record is right- 
peeled and written on the output data set. Also, whenever any peeling is done other 
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than from the right the output is shifted to the left and right by one bit and the 
results are stored in the appropriate core locations pointed by J(3), K+ 1. 


The routine PEELRO with the appropriate ISIDE will perform the peeling 
of one record. The above operations performed for 1 = 1, NREC+4 will complete 
one iteration of peeling, constituting one call to PEELER. The number, NP, of 
words of input that were changed is counted during each call to PEELER. If NP = 0 
or the number of calls to PEELER has been MPASS, the iterations are stopped. 

9.3 Converting to SLIC 

Each record is read from the last scratch unit on which the output image 
was created. The routine EXPBDY is used to sense each bit in the record. The 
bit number of each 1-bit is stored in IBDY, The total number, N, of 1-bits 
followed by N words of the array IBDY are written on unit NTAPO. 

10 COMMENTS 

On large images this progTam takes a long time to execute. To avoid loss 
of data on long runs it is suggested that the direct access data sets be saved 
so that, with slight modifications, the routine PEELS can continue where the last 
run stopped due to insufficient CPU time. 

11 LISTINGS 

The listings of PEELS and most of the associated routines are attached at 
the end of this section. The routines not included are: PET, a routine used for 
printing time elapsed between sections of a program; SVSCI, a routine which sets 
all elements of an array to a given constant; DARN and the associated entry points 
for array read/wx’ite and the logical functions under member name LOGFUNC. 

12 TESTS 

The program was tested on a small portion of a boundary image, the image 
printed before and after peeling and was found to work satisfactorily. 
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5-5-2 FINDING DISCONTINUITIES IN BOUNDARY DATA 

1 NAME 
BOUDIM 

2 PURPOSE 

To find the discontinuities in digital curves stored in SLIC format. 

3 CALLING SEQUENCE 

CALL BOUDIM (IBDY, NTAPI, NREC, NEL, IRC, ND, NDIS) 


where 

IBDY is a scratch array to be dimensioned NEL *3 where NEL is the 
maximum number of boundary points in a given line; 

NTAPI is the logical unit number on which the input boundary data 
are stored; 

NREC is the number of lines (records) in the input data set; 

IRC is the output array of coordinates of the discontinuities; 

ND is the maximum number of discontinuities expected [IRC 
is dimensioned (ND, 2)]; 

NDIS is the output integer giving the actual number of dis- 
continuities found. 

NTAPI, NREC, NEL, ND are inputs to this routine IRC, NDIS are 
outputs . 

4 INPUT-OUTPUT 
4 . 1 Input 

The input data should be on logical unit NTAPI as a sequential data set 
consisting of NREC records. Each record should consist of the coordinates of 
the intersection of the corresponding scan line with the boundary image written 
as 


J, (X(I), I = 1,J) 

where J is the number of such intersections and IX(I) are the coordinates. 
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4 . 2 Output 


The output of this program is only through the calling sequence. 

4.3 File Storage 
None 

5 EXITS 

No nonstandard exits. 

6 USAGE 

This program is written in FORTRAN IV and is implemented on the IBM 360 
with the H compiler. It is available on the users’ library as a load module, 

7 EXTERNAL INTERFACES 

The linkage with other subroutines needed with this routine is indicated in 
the following table. 


1' 

Calling Program 

Program(s) Called 

BOUDIM 

BOUDIS 

BOUDIS 

JCOUNT 


8 PERFORMANCE SPECIFICATIONS 

8.1 Storage 

This program is 834 bytes long. Including the external references listed 
above, the storage needed will be 2578 bytes (excluding the calling program which 
should provide storage for the arrays IRC and IBBY) . 

8.2 Execution Time 
TBD 

8.3 I/O Load 
None 
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8.4 Restrictions 


None 

9 METHOD 

The routine BOUDIM simply handles the I/O needed for finding the discon- 
tinuities. Connectivity, in this context, is defined in terms of the eight nearest 
neighbors of the point under consideration. Therefore, while examining the ith 
record of data, it is necessary to have the (i-l)st and (i-M)st records in core. 

The movement of data in core is avoided by using a circular buffer IBDY dimensioned 
(NEL, 3) and indexed by the pointer array IND dimensioned 3. Initially, IND is 
set to 11, 2, 3j . Always, IND (2) points to the current row. The numbers of 
boundary points in the three rows stored in core are in (NB(IND(J)), J = l, 3). 

The routine BOUDIM starts by reading the first record into IBDY (*, 2). Then, 
for 1 = 1, NREC the (I+l)st record is read into IBDY (*, IND(3)). The (NREC+l)th 
record is undefined. Therefore, in that case, NB (IND(3)) is simply set to 0. 

The routine BOUDIS is called to determine the coordinates of the discontinuities 
on the rth record. Then the pointer array IND is updated. 

The functioning of BOUDIS is as follows. Each of the boundary points in 
the current record is treated as the point e in the following array. 

a b c 
d e f 
g h i 

The number of boundary points in this array excepting e is called the connectivity 
count of e. The connectivity count is calculated by examining the arrays IBDY 
(*, IND(2)), IBDY (*, IND(l)) and IBDY (*, IND{3)), stopping the calculations 
when the count equals 2. If the count is smaller than 2, then the point e is a 
discontinuity . The row and column coordinates of e and the continuity count are 
then stored in (IRC(NDIS,K) , K = l,3). 

10 COMMENTS 
None 

11 LISTINGS 

The listings of this routine, with BOUDIS and JCOUNT are attached at the 

end. 
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12 TESTS 


This program has been tested in conjunction with SMOB2, a smoothing 
routine documented in the next section. 
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c 
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r 
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ISN 
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ISN 

0008 


IF(NB2. EQ.OIRETURN 
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ISN 

0011 
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y CM 




ISN 

0018 


IF( NBI. NE.O) ICOUNT* 
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ISN 

0022 
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ISN 

0028 


iRCINOISrl) *IR 

■ _ T CN 




ISN 

0030 


IRC{NDIS(3I«IC0UNT 

T CM 


1 n 

CnNTINUF 

ISN 

0032 


RETURN 

I_CN 


l^n«TFH 


ISN 

0034 


END 
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5-5-3 SMOOTHING BOUNDARY DATA 

1 NAME 
SMOB2 

2 PURPOSE 

To patch discontinuities in a digital curve. 

3 CALLING SEQUENCE 

CALL SMOB2(IRC, MDIS, IDIS, NDIS, NDEV, IBDY, IWl, IW2, NREC, K) 

where 

IRC is an input array dimensioned (MDIS,3) with IRC (1, 1), IRC (1, 2)) giving the 
row and column coordinates of the I'th discontinuity and IRC (I, 3) giving its 
connectivity count for 1 = 1 through NDIS; 

IDIS is the discontinuity number at which the patching should be started (only 
the discontinuities corresponding to I=IDIS through NDIS will be patched); 

NDEV is the logical unit number of a direct access device on which the 
input boundary data set is located; the output after smoothing is written 
back on NDEV, 

IBDY, IWl, IW2 are work arrays to be dimensioned as indicated in the 
listing attached; 

NREC is the number of records in the boundary image; 

K is maximum coordinate difference over which the nearest boundary points 
are checked for patching a discontinuity. (See 9, Method). 

All parameters except the work arrays are inputs . 

4 INPUT-OUTPUT 
4 . 1 Input 

The input data should be on the direct access unit NDEV, consisting of 
NREC records, the I'th record readable by 

READ(NDEV'I)N, (IBDY(J,1)), J = 1,N). 
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4.2 Output 


The output data will be on NDEV in the same format as the input. 

4.3 File Storage 
None. 

5 EXITS 

No nonstandard exits. 

6 USAGE 

The program is in FORTRAN IV and is presently implemented on IBM 360 
using the H compiler. It is available on the user's library in the form of a load 
module. 

7 EXTERNAL REFERENCES 

The linkage is indicated in the following table: 


Calling Program 

Programs Called 

SMOB2 

PATCH3 

PATCH3 

SVSCI 

PATCHl 

SORT 

ELIRPT 

PATCHl 

CONTE L 
PATCH4 
PATCH2 
PRTVEC 

SORT 

MVMRMR 

ELIRPT 

VMOV 
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8 PERFORMANCE SPECIFICATIONS 


8.1 Storage 

The size of SMOB2 is 1068 bytes. Including a main program to supply the 
arrays required to handle a maximum of 2100 boundary points per record with 
K= 20 and the buffers, this program needs approximately 114K bytes for execution. 

8 . 2 Execution Time 

Highly dependent on the image size, complexity and the number of dis- 
continuities to be patched. In the case of the Mobile Bay, Alabama level II GTM 
which had 4000 records with 728 discontinuities of which about 530 required patches 
to be generated, the execution time on IBM 360/65 was about 9 minutes. Since 
there is a considerable amount of I/O involved on the direct access unit NDEV, a 
significant improvement in execution time can be achieved by using the array 
read/write routines DARN and DAWN wherever implied DO loops have been used 
in the subroutine PATCH3 . 

8.3 I/O Load 
None 

8.4 Restrictions 
None 

9 METHOD 

The routine SMOB2 simply consists of a DO loop which calls PATCH3 to gen- 
erate the patch points needed for the L’th discontinuity and prints the details of the 
patches produced, with L ranging from IDIS through NDIS. 

Consider the routine PATCH3. Suppose (I,J) is the address of the discon- 
tinuity at which a patch is to be produced. Then, the records I-K through I+K 
(bounded, of course, by 1 and NREC) are read from NDEV. While each record is 
read one row of a 2K+1 by 2K+1 binary matrix IWl is defined. The elements of 
the row are initially set to 0 and whenever the (J-K+L)’th column in the present 
row of the input image has a boundary point, the (L+l)st element is set to 1. 

After defining IWl, the routine PATCHl is used to check the array IWl, 
eliminate the I’s contiguous with the (K+l,K+l)th element, find the nearest 1 
among the remaining and join it to that element by a straight line and store the 
row and column coordinates of the points so produced in an array IW2 . Further, 
if the contiguity count of the point of interest is 0, then the I’s contiguous with 
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the point joined to the point of interest are also eliminated and a straight line patch 
is produced to the nearest remaining 1. 

The addresses in IW2 are then merged with the data on the input direct 
access data set by reading the corresponding records of input, sorting the column 
coordinates in each record using SORT, eliminating repetitions of col umn coor- 
dinates using ELIRPT and writing back on NDEV. 

10 COMMENTS 

The routine SMOB2 can be used in conjunction with BOUDIM or Indepen- 
dently, If used independently, the coordinates of discontinuities may be supplied 
by reading a sequential data set produced by a separate run of BOUDIM. If the 
program terminates due to lack of time, the execution can be continued by a sub- 
sequent run with an updated value of IDIS provided the output data set on NDEV is 
kept. 

11 LISTINGS 

Listings of SMOB2 and the important routines called by it are shown at 
the end of this section. 

12 TESTS 

This routine has been tested by using the coordinates of the discontinuities 
produced by BOUDIM on the Mobile Bay GTM. The first 40 discontinuities were 
examined in detail by printing the arrays IWl. The performance of the routine 
was found to be satisfactory. 
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LSN-- CQj?2 SLBRDUTI KE_ 5HQB3 ( i KC >HDIS» IDIS >N01S .N DEV , IBDY , 1 1 » 1H2. NkEC ott I 

ISN 00P3 COMHQN/PTCHAO/Il »J1 ♦ 12, J2,NP 

LSM-J?C.0,4 OIMENrSrON IRCfHDI5t2K IdDYdf t iwi ( 1 1 . IW2(1 t 

C 0*N IB0Y(HAX. EXPECTED NO. OF BOUNDARY POINTS lU A LINE AFTER SMOOTHING! 

c : • 

C D*N lKi{K21*»2l ,IH2(K21»*2! NHERE K21=2*K*l, 

C 

ISN 0005 DO 20 I»IBIS,NOIS 

L SN _0 Q 0 6 CALL PATC H3 ( I B D Y 1 1 II . IRC tl .2 ) « IRC I I,3!tKt IHl , IH2 .NREC « NDE V t 

ISN 0007 IFII2. NE. OIPRINT 100, I , IRCn ,1 1 ,IRCn,2 I, II, Jl, I2,J2 

IS N ... 0009 L£.I I1.NE.0« ANQ. 12. FQ. OIPRINT 101 . 1 . IRC ( I . n , IRCC I ,J2l ,._I1 . Jl 

ISN 0011 IF( II. EQ. OIPRINT 1 02 , 1 , I RC ( 1 , 1 1 , IRC U , 2 I 

LSN-I:QJ13 20 CONTINUE 

ISN 0014 RETURN 

ISN 0015 UIQ FQRHAT(2XI5.«: ( » 15 . » . ' IS . * I JOINED TO < « 15 . * , » 15 . « i AND 

. I5,M.*I 

1.SN ...OQ.l h nU FORHATfPXJS.*; I » 1 5 . « . * I 5 . M _ JOI NED TO f * I ^ » IS . » I . » I 

ISN 0017 102 F0RMAT(-2XI5,« : NO PATCH POINTS PRODUCED AT I ' 1 5, • , • 15 , » I . • I 

ISN.OQla END 


■ 1 

I SN 
r <:n 

0003 

non4 


COMMON/ PTCH AD/I 1 ,J1,I2,J2,NP 
n&TA TPASS/n/ 

ISN 
I 5^* 

0005 


IPASS*IPASS + 1 

IP{ IPASSi LE.AOICALL PRTVECIlWl,H*Nil) 



c 




c 

POINTS IN Ihl STARTING FROM {I,JI TO THE NEAREST 

- 


c 

- c 

<2-icGUNTI NONCONTIGUOUS NEIGHBORS. 



c 

r 

SEE.CONTEL FOR DIMENSIONING INFO FOR IW2. 

ISN 
1 SM 

0008 

nono 


DIMENSION IH1(M,NI fIW2(2,l) 

IVf?n ,11 = 1 . _ _ 

ISN 

0010 

r 

IH2I 2,1 ) = J 



C 

ELIMINATE POINTS CONTIGUOUS WITH U,JI, 

ISN 

0011 

r . 

CALL CONTELI IHI ,IH2,H,N) 



C 

r 

FIND NEAREST NEIGHBOR OF (I,J1 WHICH IS SET. 

ISN 

T CM 

0012 
nm 1 


12 = 0 

CALL PA TC H4 ( I rfl f H r Nt 1 T J 1 1 1 r-Jl ^ _ _ 



C 

r 

NOW (11 ,jn is THE NEAREST NEIGHBOR. 

ISN 

0014 

c 

1F( ICOUNT.NE.O.OR.Il, EQ.OIGQ TO 10 



C 

c 

ELIMINATE POINTS CONTIGUOUS WITH (I1,J1I 

ISN 
I SN 

0016 
Of>l 7 


1 H 2(1 ,n = ii 

1 WH( ?,1 1 = Jl 

isN 

I <;m 

0018 
nni Q 


CALL CONTEL( 1 Ml ,I H2 ,H,N) 

TAfl PATrH4l TWl .M .N. T .J .I2.J2I 

1 CM 

f>0?n 

C 

. 1_Q _ 

NOW (12, J2) IS THE NEXT NEAREST NEIGHBOR. 

_cnM-Tj_Miie- - - -- - . _ 

ISN 
T CM 

0021 

nn22 


MP = 0 

NP=n - 

ISN 

0023 

r 

IF( 11. EO. OIRETURN 



C 

r 

PRODUCE PATCH ADDRESSES IN IW2. 

ISN 
I SN 

0025 

0026 


CALL PATCH2(lW2 ,NP,Il, J1,I, J) 

1F(_I2.NE. OJ.CALL P_ATCH2i IW2( 1 .NP+J L2, ,12tJ*>ll _ _ _ _ _ 

ISN 

ISN 

0028 

0029 


NP*NP+HP 

TFI IPASS. IF. 40» TALI PRTVEC( IW2.2*NP.2I 

ISN 
ISH 

0C31 
0032 


RETURN 

END 


244 









SUBROUTINE PAT CH 2I IW. Nt* . 1 1 . J1 .1 2. J 2 1 


ISN 


c 

DIMENSION lHl2»n 






c 

r 

TO GENERATE COUROINATES OF LINE JOINING (It»Jll 
DJHENSIDN I UI2.HP> yHFRF HP» MAil.. NO. OF POINTS 

AND ( I2*J2I. 
FXPFrTFO TO RF 




C 

c 

PRODUCED. NP> NO. OF POINTS ACTUALLY 

PRODUCED 

0V THIS ROUTINE. 


ISN 

I 5JT_ 
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-O.QSi.1 


IMK«HINO(IltUl«l 




ISN 

ISN 

0006 


JHN*HINOI J1 »J2|4-1 

JMIf *MAXOI J1 . J9) -1 _ 




ISN 

ISN 

0008 

0009 


I12-I1-I2 




ISN 0010 
1SN„ non 


RI12*I12 
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ISN 

ISiL 

0012 
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NP-0 
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ISN 

ISN 

0015 

0017 
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on 20 _J:*JMNfJMX 




ISN 0018 
ISN^QOl? 


I»I l + ( J-Jll *I12/RJ124'.5 
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ISN 

0020 


IM( 1 rNP )«I 






I SN 
I SN 

con 
001 ^ 


12*HIN0( 1 »K) 

,11 sMAVOf .1-1 ,1 1 



ISN 

-LSN- 

0013 
npi 4 


J2>MIN0(J«^1 tN> 
00 10 I I»n »I2 



ISN 
4 S1(L 

0015 
001 ft 


DO 10 JJ> J1 , J2 

IF! lull T ! ,J.JI.FQ.nif.n TO 10 



i SN 
1 SM 

0018 
001 9 


L=L*1 

I U2M .1. 1 Xlf 



ISN 
-J IN- 

C020 
00 21 


lR2(2tLl« JJ 
1 UH f 1 r l.i 1 >0 



ISN 

4SN- 

C022 
0P2 ^ 

10 

20 

CONTINUE 

CONTINUE . . 



ISN 

4S4I- 

0024 
002 6 


IFIL.ED.KIRETURN 

K1*K*1 



ISN 

00 2 7 


LL«0 





I5N 0033 L«LL 

!SN 0 0 JA CO T O 

ISN 0035 END 
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1 111 
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C 
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PATCH OICCOMTIinif TV AT 1^.1. 
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I 
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0007 
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0008 
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ISH 
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ICLMHK«J>K 
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ISN 

ISN 

C0I2 

0013 
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ISN 
1 CM 

0014 


IFIN.EQ.OIGO TO 10 
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I^M 

0017 
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* c 
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TB^AT I ki] AS A 2^-0 APDAv 01 MFii5iOMfn H|Th t^^ GIVE^ POINT 
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AT 1 I-Kl^l tK^ll *TH LOCATION. 

ISN 

1 CM 
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70 

lUK 1IBDY(LI'ICLHHK)*KK2UKK-K14'1I>1 

rOMTIMlif 

ISN 

002 3 

10 

- c 

CONTINUE 



C 

r 

GENERATE PATCH ADDRESSES IN IM2. 

ISN 

0024 

c 

CALL PATCHK lMl,|li2tKK21tK21 tl'Kl^l |K>1 1 1 COUNT 1 



C 

<L 

MERGE ADDRESSES FOUND IN tW2 WITH THE BOUNDARY ADDRESSES ON DISC. 

ISN 

I CM 

0C2S 

nrxi. 
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ISN 0028 
ISN 0029 

30 
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c 

c 

FIND NFKT CHANGE IN 1U2I1.*I 

I CM 

0030 

c 

IFI IP.r.T. NPlf.n TO AO 

I SN 
T SN 

0032 

0034 

40 

lF(IW2(ltIPI-EU.IU2U tlP-lUGO TO 30 
IP2>IP«1 

ISN 

ISN 

0035 
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KK-IW2(lf 1P2I^K1>1 

RFADINOFtf «KKIN.^<rflDYtLJ .L-1 .NI 

ISN 

ISN 

0037 

0038 


DO 50 JP«lPltIP2 

N«N*1 

ISN 

ISN 

0039 

0040 

50 

1B0Y(N>«1 U2(2tJPl«ICLNHK-l 
CALL SORTlIBOY.l.N.N.l.TtTTl 

ISN 

LSIL 

0041 

0049 


CALL ELIRPTINflBDVl 

IMlTEtMDEV*RRIM.IIBDYlL»«L«l.N) 

ISN 09^) 

■ - 

IPl-IP 

IPIlP.Lf. HPIGO TO 10 j 

ISN 

Ill iru 


MTIMM 
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iSH_0C02 SUaAQlilJJiL^ 1 


ISN 

0003 


OIHENSICN IM1(0,NI 


LSI). 

0004 


in»n 


ISN 

0005 


J0»0 


I 

FiTiTiTiNHH 


IFl I -FQ-0 IRFTURN 


ISN 
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-JShLQQQ9 
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ISN 

CGIO 
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1 SN 
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ISN 

0013 
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I _^N 



Ml llliW IJlI.l’ir’IIfflMTiWrnMMMBM 


ISN 

C016 


iD«ir 


I SN 

0017 




ISN 

0018 


lOHIN-ID 


ISN 



CONTThllF 


ISN 

0020 


RETURN ^ 


ISM 

FiTimMi 


— EilQ 



^UBROUTJ_NE PKTVECUXtN. IFHT ) 

ISN 0003 DIHENSION IX(NI 

ISM 0004 LFC IFWT^EP. 1 IPRlKiT IQQ.IX 

I5N 0006 IFl IFMT.EU.21PRINT 2C0«IX 

RETURN 


ISN CC09 100 FDRHATI 10X41111 

ISN QOIQ FQRHATC 1X4013) 

ISN 0011 END 
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5-5-4 IDENTIFICATION OF CONNECTED REGIONS 

1 NAME 

REGIONS 

2 PURPOSE 

To identify all distinct connected regions in an image given the boundary 
data in SLIC format and produce a map with a number at each point showing the 
region to which it belongs. The region numbers will be in descending order of 
area. 

3 CALLING SEQUENCE 

This is a main program. In its present version the image size is supplied 
through DATA statements. 

4 INPUT -OUTPUT 

4 . 1 Input 

The input to this program is a sequential data set on logical unit 8, having 
NREC records stored as N, (IX(J), J = 1,N) in unformatted FORTRAN mode. 

t . 2 Output 

The output of this program will be a sequential data set on logical unit 12, 
having NREC records with NEL pixels each, with one half-word (2 bytes) per pixel. 

4.3 File Storage 

This program requires a direct access data set with NREC records and 
NEL half-words per record. 

5 EXITS 

Not applicable 

6 USAGE 

Tins program is in FORTRAN IV and is implemented on IBM 360 with the H 
compiler. The associated subroutines are available as load modules on the user’s 
library. The deck for the main program is available with the authors and needs 
only slight modifications in the DEFINE FILE and DATA statements for use on 
any data set. 
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7 EXTERNAL INTERFACES 


This program uses several subroutines as indicated by the linkage table 
below: 


Calling Program 

Programs Called 

REGIONS 

PET 

VMAXI4 

VMINI4 

RIDER 

SVSCI 

DARN 

SEQLS 

SAWN 

RIDER 

SVSCI2 

SVSCLl 

SORT 

RIDERl 

RIDER4 

DAWN 

VMOV2 

RIDER2 

PRTVE2 

DARN 

VMAXI2 

SEQLS 

SORT 

FLIPV 

SORT 

MVMRMR 

RIDERl 

SVSCI2 

RIDER4 

RIDER5 

SVSCI2 

PRTVE2 

RIDER7 

RIDERS 

SVSCLl 
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Calling Program 

Programs Called 

RIDER2 

PRTVE2 

RIDER7 

VMAXI2 

VMINI2 


8 PERFORMANCE SPECIFICATIONS 

8.1 Storage 


The present version of the main program is 134,436 bytes long. The ex- 
ternal references required and the buffers increase this to 192K bytes. However, 
the size is dependent on the data set to be handled and the dimension statements 
should be changed to satisfy specific requirements . 


DIMENSION 

INTEGER*2 

INTEGER*2 

LOGICAL*! 


IX(2NR+2,N), IRES(MSEG+1) 

IWl(NEL), IW2(NEL), ITABL(MR*MSEG) , IS(MR) 
LW(MR) 

IDENT(MR,MR) 


where 


NR 

N 

MSEG 

MR 

NEL 


Maximum number of regions expected; 

Maximum number of ))oundary points expected in a record; 
Maximum number of ’’segments'’ required to handle the 
image (see 9, Method); 

Maximum number of region identifiers permissible in a 
segment; 

Number of pixels per line in the output map. 


8.2 Execution Time 


The time is highly dependent on the size and complexity of the image. The 
Mobile Bay GTM (level II) resulting in a region identification map with 400x2100 
pixels and consisting of 1742 regions had to be handled in 15 sections and took 
19.5 minutes of CPU time on IBM 360/65. 


8.3 Restrictions 


None 
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9 METHOD 

This program has five major sections. 

(i) Determination of the bounds on the column coordinates of 
boundaries on the input data set; 

(ii) Finding a preliminary set of region identifiers; 

(iii) Finding the areas of each of the regions; 

(iv) Generating a mapping such that the region numbers are used 
in the order of decreasing areas; 

(v) Modifying the region numbers by table look-up. 

9. 1 Determination of Bounds 

The maximum and minimum values of the column coordinates of the boun- 
dary points are determined. If the minimum is greater than 1, it is set to 1. If 
the maximum is less than the value of NEL supplied, it is set to NEL. The value 
of NEL is then changed to Max-Min+1. The output image size will then be NREC 
by NEL. 

9.2 Finding Preliminary Region Identifiers 

This is the most important step in the program. The subroutine RIDER 
is used for this purpose. Its function is similar to the routine with the same 
name described in ^3J . The routine in was designed to print an error 
message and return with NR = 0 when the number of distinct regions exceeded 
MR. But the present version can handle up to MR*MSEG distinct regions while 
still using a "region identify matrix" of size MR by MR (rather than MR*MSEG 
by MR*MSEG). 

This routine uses the arrays IWl and IW2 as the previous and current 
records of region identifiers. By convention, region numbers 1 and 0 indicate 
the "exterior" of the image and boundary points. The MR by MR array IDENT 
is used to store information about identity of regions, IDENT(I, J) = .TRUE, 
meaning that region numbers I and J refer to the same connected region. 

Initially, the array IWl is set to all I’s and IDENT is set to all .FALSE. . 
Each of the input records is read and the following operations are performed. 

The boundary coordinates in the input record are arranged in ascending 
order. The routine RIDERl is used to generate, in IW2, the region identification 
numbers corresponding to the present row. First, all the elements of IW2 
corresponding to the boundary coordinates are set to zero. Each interval between 
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the zeros is compared with the corresponding segment of IWl, If there is no non- 
zero element in that segment of IWl, a new region number is started and assigned 
to the interval in IW2. If there is a nonzero element, that number is filled into 
all elements in the interval. Finally, IDENT{IW1(I), IW2{I)) is set to .TRUE, for 
1 = 1, NEL wherever IWl(I) 7 ^ 0 and IW2(I) 7 ^ 0, indicating that IWl(I) and IW2(I) 
refer to the same region. Also, when new region identifiers are to be used, the 
routine RIDERl verifies whether the number of identifiers exceeds MR. If so, 
the value of NR, the total number identifiers, is set to-NRP, the total number 
up to the previous record and the control goes back to the routine RIDER. 

Now, if RIDERl returns a positive NR, the array IW2 is written as the 
I'th record on the direct access data set (unit number IDEVO in RIDER, same as 
90 in the main program) and IW2 is moved into IWl (so that it becomes the 
"previous" record while handling the next record) . 

If RIDERl returns a negative NR, then NR is changed to -NR and the routine 
RIDER4 is called. The set of records handled between any two calls of RIDER4 
will be referred to as a segment. Associated with each segment, a table is defined 
which gives a mapping from the set of region identifiers obtained in that segment 
to a new set reflecting the connectivities discovered up to the most recent segment 
handled. Also, the initial record number for each of the segments is stored in an 
array. The functions of the routine RIDER4 are to: 

(i) Reduce the matrix IDENT (using RIDERS) examining all of the 
available connectivity information in it and obtain a look-up table 
for the current segment; 

(ii) Modify the tables for the previous segments to reflect the newly 
found connectivities, if any; 

(iii) Find all the distinct region numbers occuring in the last record 
IWl of the current segment and change the numbers there which 
are greater than 1 to consecutive numbers starting with 2 ; Let 
NR be the largest number in IWl; 

(iv) Set up an array IS consisting of the distinct region numbers in 
IWl and then change IS(I) to ITABL(IS(I), ISEG) where ITABL 
is the look-up table for the current segment; 

(v) Set all elements of IDENT TO .FALSE, except when IS(I)=IS(J) 
for I, J in the range 1 through NR. 

After each call to RIDER4, the segment count ISEG is incremented and 
the initial record number for the next segment (which is really the record number 
at which RIDER4 had to be called) is stored in IRES(ISEG). If MSEG is exceeded 
by ISEG or if NR> MR (which means there are more than MR distinct regions in 
the last record) the routine RIDER prints an error message, sets NR = 0 and exits. 
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otherwise, RIDERl is called again, IW2 is found and written on IDEVO and the 
program proceeds normally to the next input record. 

After the NREC input records have been processed the routine RIDER4 is 
called to get the look-up table for the final segment. A call to RIDER2 changes 
the look-up tables for all the segments such that consecutive region numbers are 
used. 


Finally, each record from IDEVO is read, the appropriate look-up table 
is used to modify it and the record is written back on IDEVO. Also, NR is set 
to the maximum region number used after table look-up. 

9.3 Finding Areas 

A histogram of the region identification maps is found, giving the total 
number of occurrences of each of the region identifiers 0 through NR, These 
numbers indicate the areas of the regions, 

9.4 Finding the Final Look-up Table 

A sequence of natural numbers is used as a secondary array with the liisto- 
gram as the primary array in a descending sort operation (routine SEQLS) . The 
resulting secondary array then gives the sequence of original region identifiers 
corresponding to decreasing areas. An inverse mapping [inverse mapping of 
flX(J) J = 1,N] is defined as {IY(J) J = 1,N] if lY (IX(J))=J. ] of this sequence gives 
the final look-up table. The actual coding follows these principles but is slightly 
different in detail to preserve the identities of regions 0 and 1 which have special 
significance . 

9.5 Deriving the Final Region Identification Map 

The look-up table generated above is used to modify the region identifiers 
on IDEVO, record by record, and write out the final sequential data set on unit 12. 

10 COMMENTS 

An approach suggested in [24] can be used instead of the one described above. 
With that method, the processing would be identical, except that the matrix IDENT 
is not defined. Instead, a table is updated every time a new connectivity is dis- 
covered. While this saves storage, it appears to take more execution time than 
the present method. 

11 LISTINGS 

The listings of the main program and the associated routines are attached 
at the end of this section. 
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12 TESTS 


This program has been tested on the Mobile Bay GTM both before and after 
smoothing and found to work satisfactorily. Also, the results have been found to 
be identical (on a smaller data set) with those obtained by the earlier version of 
this program . 
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I5N 0CQ2 DlHENilON I XC^OOO I , IRES (21» .. 

ISM CC03 INTEGER*2 I WU 2 1 00 I » U2 ( 2100 I »I TABLi 8300 I . IS (400 1 

ISN 0C04 INTEGER*2 LWUGOI . 

ISN ^005 LOGICAL*! I DE NT ( 3C0 .3 00 I 

ISM CD.36 DE^Nf^^FILE 9C( 4000, 4200, L, lAVJ 

C 

-C D.iN 1XIHAX(2NR + 2,N) WHERE NR«MAX. MO. OF REClfliliS - EXPECT EO AND 

C N> MAX NO. OF BOUNDARY POINTS EXPECTED IN ANY RECORD! 

ISN 0007 DATA NREC ,HR,HSEG/4000,300,20/ 

, ISM 0C"8 OATA..NE L/21CC/ 

ISN r0j9 MAXX=-1 OCOOOO 

ISN CCIO 711NX= ICOCOCO . . ... _ 

ISN rCll CALL STRTPR 

ISN CCI2 CALL PETIO) _ _ 

I SN Gri3 DU 10 I =I ,NREC 


1 SN 
ISN 
ISN 
I SN 
ISN 
ISN 

I SN 
I SN 
I SN 
i SN 
I SN 
I SN 
I SN 
ISN 
I SN 
I SN 
I SN 
ISN 
I SN 
ISN 
I SN 


0C14 
or I 5 

rci? 

0018 

CC'19 

0020 

o ’c 2 r 

C022 

0023 

CC24 

002 5 

C026 

Of 2 7 

002 8 

CO 2 9 

0C30 

0031 

0C32 

0C33 

C034 

0035 


1Q_. 


._.CL 


ISN 0036 


PEA018JN, (I X(J» ,J»1 ,NI„ 

IFIN.EU.OIGO TO 10 

CALL VrtAXl4( iXiN.MAXXl . . 

CALL VHINI4(Ia,M,HINX) 

CONTINUE _ 

REWIND 8 

IDENTIFY CONNECTED REGIONS^ 

PRINT 600 ,MI NX, MAXX ,NEL 

MINX>MI N0(MINX,1 > 

PRINT 600 ,MI NX, MAXX ,NEL 

MAXX = MAXQ(MAXX,NELI 

PRINT 600 ,HI NX, NAXX,NEL 

NEL = MAXX-HI NX + 1 

PRINT 600 , MINX, MAXX,NEL 

6C0 FORMAT!* MI NX ,MAXX , MEL» * 3 18 I 

PRINT 100 ,NREC,NEL 

FORMAT! // ' IMAGE 5 1 Z£ * ( • 15 , * , * 1 5 , * ) ' I 
N0UH = 1 

PRINT 1000, NDUM _. .. .... 

1 POO FORMAT! • NDUM»* 15 » 

CALL PET! 21 

CALL RIDER! 8,NREC,NEL,9C,MINX,IX,IWI ,In2, ITABL, 10ENT,HR ,NR,LN, 

. MSEG , IRES, 151 . . 

CALL PET!2I 


C FIND AND PRINT HISTOGRAM OF REGION IDENTIFICATION MAP. 

ISN 0037 PRINT 200 

ISN C'C36 .. 2C0 FORMAT! //lOX'REGIDN NO. *1PX * NO.- OF PIXELS') - - 

ISN 0039 CALL 5V SC I! I X ,NR*1 ,0 I 

ISN C040 DO.-30-I =1 ,NREC 

ISN C041 CALL DARN!90,I,IHl ,NEL*2) 

ISN 0042 0a_30 IEL*1,NEL 

ISN 00^3 J»IW1IIEL)+1 

ISN 0044 _3CL IXCJ)»IX!J)*1 

ISN 0045 NR1-NR4-1 

ISN C046 DU 40 I -1 ,NR1 

ISN PC47 J»I-1 

ISN CC48 IF! IX! I I. NE. OIPRINT 300,J,IX(1) 

ISN 0050 40 CONTINUE 

ISN 0051 30a — FORMAT! 11 XI6 ,16X19) 

ISN 0052 CALL PET!2) 

C REARRANGE NUMBERS IN DESCENDING ORDER OF POPULATIONS. 

C LEAVE 0 AND I UNCHANGED SINCE THEY CuRR£5PONO-T£T- EXTERIOR AND-- 

C BOUNDARY POINTS RESPECTIVELY. 


ISN 0053 CALL SE UL S! I X ! 3 ) , 1 X ( NRl *1 ) , NR*1 , NR>1 ) 

ISN CC54 PRINT . 400 - - - 

ISN 0055 400 FORMAT! *1 REGIONS AFTER RE ASS IGNME NT S : * I 

ISN 0056 - PRINT 200 -■ - 

I SN 0057 DO 50 I *1 ,NR1 

ISN 0058 JsI-1 . 

ISN 0C59 IF! 1.LE.2IPRINT 3C0,JrIX!II 

ISN 0063 50 CONTINUE 

ISN 0064 150 FORMAT! 11 XI6»16XI9, 17X16) 
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IM tHt lilllvf 

iM Ill 

ISIf 0C67 DO *0 r»f«Nll| 

15K_0Q68 _fcfl 

ISN 0069 CAlt 9ETI2I 


C NOOIFY RC6IQN NUMBERS ACCQR0IN6 TO NErt ASSICNNENTS FOUND IN IX. 

ISM OO70 DO 70 I«1»NREC 

ISM 0071 . — ^ — CAU DARN(90tItlMltNEL»2l - 

ISM 0072 DO 10 !EL«1»NEL 

ISN C073 ^ J-^IMlIIEtUl— .. ..., '• . .. 

ISM 0076 80 lNtlIELl«IXf J» 

ISN 0075- — C ALI. SAMN 414^1 ^ - -- - . 

ISM 0076 CALU FETI2I 

ISM 0077-^ SUIB - . _ 

ISM 0078 %m “ ~ 


— COMP-UT-tR-« I E-.N CtS^-CO;tP-0 R A4^I-0 M,-M A »U — 9-7-6 ( 

SUBROUTl -N E R1D E R( N TAP B r Mft EC » M EL 1 1 OEVG i ICH N t lOQY -f-Ht i- r i rl - TA B L » ' 

IDENT.HR.MRtLWtHSEOtIREStlS) ' 

C Td IDENTIFY ALL DISTINCT CONNECTED Kc&IUNS IN A PICTURE SEPAkATED 

-€ ^Y-frOUNOARY— bl NES-r--' fH6-6T3UNCA^<V— OAT A -ARE— G-lVE-f^—A^S-NREC-RtCGROS ON 

C SEQUENTIAL FILE NTAPSt EACH RcCORO BEING WRITTEN AS j 

— C M-T"bbB-9^H~H'T"I'*^rNH : ' 

C THE OUTPUT OF THE PROGRAM IS AN NREC^NEL DIRECT ACCESS FILE ON 

"6 H-OeVQ-CCNSI-Si'-I-NC— OF-C-»— 5— FUR— e OUN'GARY-PU-hNT S— ANb-OI S T 1 NCT “R E G I □!. 

C NUMBERS FUR EACH OF THE CONNECTED REGIONS. ICMN= M I N IHUM COL UMN 

-0 ^VUMBER-WH-K-ttr-OW -THE-OUTF^UT^i-L-rr-irt tl— C-QRK«PONO -TU“TH E -f I R S T - 

C COLUMN. IT IS NECESSARY THAT | 

-6 I-€-HN- r b € « MT N ^B D -Y« • . -be-.-M-A-)H--I-e - . - L E H -C-M-N-hIIE-L— H 

C DEFINE FILE I D£ YO I NftECi N£ L<-2 , L , I A V) | 


DIMENSION IBDVm 

-tOGIC-AT.-^!— I-DE N T (-MR rHR-I 

LOGICAL ^ 1 LW( MR ,MRI 

-HH-^E 1 n -H-N EL l - rl V i 2I -N€ L- > - rI H~-A6fc-H^-i-M6-c G - > 
DIMENSION IRES(MSEG) 


^ 

C INITIALIZE A WORK ARRAY Iwl WITH I'S AND IDENT WITH .FALSE. 

r* _ • 



C 

CALL SVSC 12 n MI ,NEL, 1) 

< 

i 

— V 1- w nr\ f • 1 i 

1SEG=1 



NR = ! 

1 

( 


c 

c 

LOOP ON RECORDS 

i 

00 10 IREC=1,NREC 


c 

READ ONE RECORD OF BOUNDARY INFO. 

1 



R£AO( NTAPB I N, (IBDY( I I , I =1 ,N) 

W-N-rN C ■; 0 > C A L L T- ( 1 B D V i l~,^FrN 

i 



^30 -C-eWT i NUE — — — 

CALL RlDERl nwi »IBDY,ICHW,NEL ,N,IW2rIDENT,HR,NR> 

IfH-»Ht-7C-T^rOi-G-&-TO-'>0 — — 

PRINT 2C0f IREC.NR 

ZFrf' FUftMAT-I-*— T-I-ftEC',-NR-»— »-^-2-I 6) 

1 F( IREC.cD. IRESn SEGI IGO TO AO 

CALL RIDERA{IDENT,LK,HR,NR,ITABL,ISEG, IWI ,NEL»IS,.FALSE.I 

i-se&^i-s eC-i-T“ — - 

IF{ ISEG.CT. MSEGIGD TQ AC 

-IRESI ISEG»= IREC — = 
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]F(NR.Le.KR)Ga TQ 3C 

-F-ft l W T ^ 

KR«0 


-tef F^RHA-T-|-*-t:RKtJk-CiJNDI TI 0«-IN-ft I DEfli" SUPPtI Ea-«k“0R-^5fG-if«“ EXCEED 

.EC AT RECORD NUHBcR'IG*'. RETURNING WITH NR«0*l, 

R-tTURN — 

20 CALL DAKNI IDEVO»IREC,IH2tNEL*2} 

CALL VHCV2« I i< 2« N E:L|1 ii 1 > — . 

10 contTnue 

C - AL - L — R H ^i^Mi-OEt^TirLirTHRnr^jRTh T A6L rl S i . TR UE~H — 

CALL RIDER2 (ITABLfHR*- ISECI 

I-R€^-<-T5t G ♦ 1 ) « WR E e- H — 

PRINT 3CD I 

-je-E rO P MATI/// * r INAL - TADLC5 FOR HOOIFY I N & R C 0 1 BN - NUHuE R 5 ' ) — : 

00 60 J5cG-l»I5EG i 

PIH-N^^C-^J^EG 

AOO FORMAT! • OSEGHENT NUMbER‘I3) ! 

J5EC-1 f ^ f . 

DO - 70 I RE C - M - rNREC 

1 F( IREC.LT. IRES! J5EG + 1I ICO TO 5«? 

- 

50 CCWTINUE 

e-A!H^-DAfrH-!H-DE^V^H-RCC- rI -Wii-NE!r*^l , 

DO 80 IEL*1 ,NEL 

l -E-E-I 

1 F(I .NE.OU W1 !IELI=ITABL! I , JSEG) 

70 ' CALL 0AWN!IDEV0,IREC,IW1 ,NEL*2> 

NR*^J ^ ^ — 

CALL VMAXI2!ITA3L,MR*ISEG,NR) 

R-ET'-URN 

END 


SUBROUTINi PET!!) 

^ f M-. N E . C) GO- Ttr-1-0 

CALL TIMER! I TIMED 

TTiMEaO. 

WKirE(6t20CI 

200 rORMAT ! l OT f «Et C I NN T WC ~TrHI NG*»* f l WE NOW I S 0 * I 

RETURN 

TO CALL r IMER! 1 TIME2} 

TIME*! ITIME2-inMED/lOC. 

TI iMt* ITIME*TIME 

ITIME1=ITIME2 

R R-tT tr CTioc-i-ti-we-rtrrwe 

TOO FORMAT! lOX'TlME ELAPSED SINCE LAST PRINTING OF TIME**E12.3. 

: • SEC. f total -TIME - eL-APScOF<tI2-r3T*S^eT^i 

RETURN 

END — 


ISN 0t02 '* ' * SUbKOUTlTIt SVSCI2nx,N#T3J 


ISN GCu3 
ISN CtOA 


ISN CC^5 


r.'TEosK*2 1X(NJ 
Do I r- I = 1 , fi - 
10 1X!1)*IS 


"ISN CvC6 

liN 


•vk TURN 
END 
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iSM OOU? * SUMkOUTIHe SOftTfAtll « JJfMKfhN.Tfm - - - 

ISN Uu03 OIHEMSIUN Al HH .NN) t T( NN ) «T T ( NN) »I U U 6) f I L( 1 6 ) 

ISN OUUA— INTEt^ER AfTtTT- - -- - - -- J 

ISN OOLS N« 1 

f SH UG (}<>" ”■ — 1 1 — • - — ‘ — 

OOU7 J«JJ 

ISN 0O!i8 - --5 IPH .GeiJ)G0-f0--70 - 

. 1 UU 10 10 K* 1 

- - lih oOll ^ lJ«(I+J}/2 

ISO U012 CALL HVHKHRIA fHH.NNtTtl^IJfl) 

- ISO 0*j\i lEI A( I* U «L£ *ri IMGO f0-«0 - 

ISn Uu-13 call RVMKHiUA>HH,NN»AtHMtl >1 J) , 

JSN Oulb - — CALL MVMkMh(T»l,NN»A|HM,l,n : 

ISN 0J17 CALL MtfHMHxIA f IJ,1 I 

- ISO GOia iO L-j - - " 

ISO onl y lE(AIJ,l).Gc.T( lUGU TU AO 

IS?y 00^1 CALL HVMKMfc(A»MM,NN,A,HH,J,I J> 

ISO OC'22 CALL HVrtRKR{T»l»NN»A«HHfl*J) 

ISN UUJ3 call rltfHRHKlA ,hH,ON, T,I , IJ,1) 

ISO Uu^<* IFIAI I, ll.LE.TC inOU TO AO 

ISM ii020 CALL H VMkhRI A ,MK ,«0,A ,HM,I ,IJ> — — . 

ISM 00 27 call MVi'IkHKIT, l,NOfA«HK,l,l) 

ISM o02rt CALL M V.HR MR ( A , hM ,0 0 , T , I , IJ , 1 > 

ISf. 1.029 &□ lU Ao • . . 

lSf4 UOjO —SO CmlL H VHKrtk I a , mm ,00, a ,HM,K ,LI 

-ISM uOM CALL H VHKHR ( TT , 1 ,M0 ,A ,MM, 1 ,K) 

I . SO u(j J3 IF I A (L , n .or .T I n ) 00 to ao * 

liN 0035 call MVrtiiHKlA,MM,ON,TT,l,L,lI 

ISM 00. »5 SO K=K»^I 

ISM 003/ IMA(K,U.LT*MU)G0-T0 SO — ^ 

ISM J0)9 IF(K .LC-.LICJ TO 30 

!S0,u0^1 • IFIi.-*I*LE.J-KIGO TO 60- - - • 

I ,N UuAi IL IM »= I 

ISfi 00A5 I=K' 

Iso OOAo - 

1 >M U0A7 GU Til SO 

l.SM OUAO 60 ILIrtl-K — 

ISO OJ'*y lUlM I* J 

I SM 'JU51 ■ KaH«-l 

I..M 005 3 70 H*M-l 

ISM I.OSA — Iflrt.tO.OIRtlURN --r 

I iN nUSe> I« IL IM I 

ISMviOSs SO If I j- I .CE .1 nCU- TO 10 

ISM liOtoO— IFII.£u.inGO TO-S 

1 SN Li)u2 :la I- I 

■- ISM OOo J 90 - — 

13M Ou^• IFII.EO.JIGU TO 70 

ISM- 0066^ <-AtE-«im«MR-f A i MIH N M-, » 1 » ^ 

ISN 0067 IFIAf I,ll«LE.nn>00 TO 90 

ISM 0069 I 

15K 0070 100 CALL H VHRHR ( A ,KH .NKfA ,MMt K,K f1 ) 

ISM 007 1 K«K-1- — - ■ ^ 

ISM 0072 IFITI l).LT.AlK,inOO TO 100 

— . I6f» 0076 CALL MVMRMRI T> !,NM,A,HM,l,K-Ml 

ISN 0073 GO TO 9C 
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— SoS^CuTInc nl ucItA^i K f^Bui t ICiiif #nc«.f ii •i-r ri 0 cnTTnR#fiHf~~ v.^.- _ — = ^ 

C ___ 

C LAST ARRAY IXt FIND CURRENT ARRAY lY CONTAINING REGION IDENTIFICA- 

— £ j I QM-NUKf>E1t5^ Air50r~Ii=^- TtfE-tt€N BOUNOARY ELEH EN TS IN C URRE N T. RO N 

C ARE CUNTJGUOUS WITH ANY NONBOUNOARY POINTS OF THE LAST ROWf SET 

yHfr-CuRRes PON DING ELE HENTS— hN—I DE N f - N AT R l Xi ^ — 

C 

OIHENS lOfi-ttfOrlNi — — 

INTEGER^a IXlNCUtlYINELl 

LUGiCAL^L-IOENTfrtJ^tHR* 

iFIN.NE.OlCa TD 10 

— — ■ ■ ■■ — CA irtr- S YS ei^-(-LY"rNtL-Ti-> 

CO TO 20 

to- COflTINUE — 

NRP=NR 

C ALL POINTS TO THE LEFT OF IBOYd) ARE 'EXTERIOR* POINTS {REGION 1) 


I’lbDY ( 1 )-ICHN 

IF t i .GTvC-ieAilr-SVSCI^tLYt I , t t 


-A tt- ^ f N f 5“T [1 TitE-H I GHT -OF—W^ i 


-hr-L»BY l N ^~ IC HN♦ ^ 

IFINEL.GE . I ICALL SVSCI2 ( I YU ) >NEL-1 +1* U 


30 

£- 

C 

C - 
C 


DESIGNATE ALL BOUNDARY POINTS AS 'REGION 0*. 


00 30 1=1, N 
J^hrUY l tt- TCKtT»i- 
lYU ) = C 


FOR 1 = 1, N-1 EXAMINE IX(J) FOR I BOY ( I) . LT . J , L T, I BOY ( I ♦ 1 ) 
AND SET lY ACeURDIHGLY^- Ar-NtW Ri 
1 $ 0 FOR ALL J IN THE ABOVE RANGE. 


50 


YO^- 


IFlN.EQ.nOO TO 20 

■ Nl-N-l 

DJ AO I = 1 , N1 

-Ll=IbOY( I )-ICMN*2 

L2 = I0DV{ I + D- ICHN 

f ^ trl j G O-ArO- 

DO 50 L=L1,L2 
- IFi IX(L >.^0-.0»G0-^-5O— 

LL*L 

GO TO 60 

CONTINUE 

NR = Nft^t — ■ — - 

IF ( NR. LE .HR )G0 TO 70 

NR^-NKP 

RETURN 

LL- 5 V SC i tY+ttt , L 2-L 1 ♦ IrrNfrL 
IDENTINR.NRIx.TRUE. 

GO TO 40 


LL=i XI LLI 

CALL SVSCI2( 1Y(L li ,L2-Litl,LU 

■CONTINUE — 

CONT INUE 


20 

-t' 

C 

-c- 


SET lOENT MATRIX TD 


INDICATE REGION NUMBERS CORRESPONDING TO 


— aa- 


DO' BO IEL=l-rNEtr 
I*IX( lEL) 

-IF ( I .-EQiOtGO-Ttr 
J=IY( lELl 


■»0“ 


I F ( J -7EQ rCn GO TO-B Q - 
lOENTI I , J ) = . TRUE. 

CONT INUE 

RETURN 

END--- 
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S- ti frft 0 -J T 1 ?< C • K I P E R2 { IT A B L - 1 F jtU 

C 

—e e-FAN G c-f? E-<J I ON -tJUH B E R S -SUGH— TH A-T-E GN5 etUT-I VE-NU MS-FRS-ARE-U 5 E D---- 

C 

HJT-&GE R <'-2-I-TA 0 L-{+JR-r2-l 

C 

— € FIND TtlC 5ET Or-f WNB CR5 IN I TADLH ^ il -*-; 

C 

e-Q-5-F*-l-rNR = 

5 1TABL(I,2)=0 

M*4^-F=-H-WR 

J=1TABL11 ,1 ) 

—he F F ^ J - H Et ^ -F- TA P b( J rZ J r2 } -e^ 

PRINT UO 

eAbt-PR-T-V-ta-H-FfrBH-i-r^^TNR-) 

C 

— e eHAN 6^FT-A^-L-e»>T- 2» -- T - B --G-EHr— A-irO^KHjp-^-A-BL-e-F&R--Ii‘-A-B ^ 


^ 

DQ 20 1=1, NR 

11 % 1 t4ULi iLi d'J 

j=j+i 

20 

\ i rc 

CONTINUE 


r 

.CALL PRTVE2UTABH1 ,21 ,NR» 


c 

CHANGE ITABL(*,ll, 



DO 30 1=1, NR 


J > 

1 i'AJLiiiiJ*ii AUirt i"T'AtJc“V"i ;"rr'T'/:‘7 

RETURN 



FEE P^Rtl A T - ( -« 0 N thKB-E-fFS - D P -GEC UR -eN C E-^- Q p- R E -G-t-dN~NU HB-ER:S— 1 N-TH-AB-O V E— T-AB cd 

■ .C SI * 1 ^ 

fM TAB trE TB- CH ANGE - Wtt0tiFS— fiF^-tiE-A0eve-y/>rBlrti-S-> * » 

.END 


l$irOCC2’* SUBROUTTNc VH AX'! ^TTHC i A V N , KffXTA 7 

ISN OUv'ii DltlEioltN IXIA(U) 

ISN'COC'V - — - DU lC“'l = r,N- 

ISN ocrs 1C MAAlf» = HAX'^l lXI*,n ) fHAXU) 

ISH Ou.''o KclUXN" 

C 

ISM 0u^7~-. tNTKY Vf*TrjI«nXlAi"MTHlNI*»n 

1 sM (;«- '• a UJ, I *l »N , 

1 S N 0 M •' V 2C H 1 fJl A = ,i I N O ( I X 1 A ( I-lTK 1 Ml 

ISN :ci(> k£IU>vN 

ISN uoli — — tf.U 


ISM S^tMlOUflME-iVSCLH IX,N.U 

ISM tfUMl iUCICAL • 1 1X(N),L 

ISN 0U04 DO 10 I-1,M 

iss uoi>5 10 ix(n*L 

I5N 0C06 -RETURN ^ 

ISO U007 END 
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CJt.MfuaiEa— S-C4 EJJC€-S-XCAiU)ilAXI.Oil-r---MAft-, — 


I 


^ — S Hi B P. a U T I W E R I - D Eft-A-{'I & g f» T '-r L W > MR t N R r I T A 3 L i I 5 E G f I Vi l r W C L > I S > LA 5 - T ) ' 

LOGICAL LAST 

L-^3G1CAL^1 I ,Mr.l 

1NTEGER*2 I TA3L ( MR r 1 ) »L W I MR ) , 1 S ( I ) 1 1 R1 ( <NE L ) 1 
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5-5-5 DELETION OF BOUNDARY POINTS 

1 NAME 
DBOUND 

2 PURPOSE 

To modify each of the "0" pixels in an image to the most frequently occurring 
number in its 3 by 3 neighborhood. (This is useful, for example, in generating a 
level I GTM from a level II map and/or suppressing all the boundary points in a 
GTM and replacing them with reasonable class labels). 

3 CALLING SEQUENCE 

CALL DBOUND (NREC, NEL, NEL2, NTAPI, NTAPO, IX, lY) 

where 


NREC = Number of records in the input image; 

NEL = Number of pixels per record; 

NEL2 = NEL+2; 

NTAPI, NTAPO are the lo^cal unit numbers of input and output sequential 
data sets; 

IX, lY are work arrays to be dimensioned as indicated in the listings. 

Ail the calling arguments except IX and lY are inputs. 

4 INPUT-OUTPUT 

Both the input and output sequential data sets have the same format. The 
number of records is NREC. The number of pixels per record is NEL and the 
number of bytes per pixel is 4. The records are in unformatted FORTRAN. 

5 EXITS 

No nonstandard exits 

6 USAGE 

The program is in FORTRAN IV and implemented on the IBM 360 using the 
H compiler. The program is in the users’ library as a load module. 
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7 EXTERNAL INTERFACES 

The subprograms required by this routine are: 

SARN, a sequential access array read routine; 

VMOV, a routine to move a vector in core; 

MAJOR, a function ^ving the most frequently occuring number in a 3 by 3 

neighborhood . 

8 PERFORMANCE SPECIFICATIONS 

8 . 1 Storage 

This subroutine is 1036 bytes long. With the main program needed to 
call it for an image with NEL = 866, the external references and buffers, the 
storage required is 40K bytes. 

8.2 Execution Time 

Depends on image size. For a test case of 1624 by 866 pixels it took 
approximately 100 seconds. 

8.3 I/O Load 
None 

8.4 Restrictions 
None 

9 METHOD 

This program uses a circular buffer IX with pointers II, 12, 13 indicating 
the previous, present and next records under consideration. Initially, II, 12, 13 
are set at 1, 2 and 3 respectively. After each record is processed, the pointers 
II, 12, 13 are "rolled” upward. The processing of each record consists of checking 
the eight neighbors of each pixel whose value is zero. The function subprogram 
MAJOR is employed to determine the most frequent number occuring in the set 
of eight (If such a number is not unique, the first encountered number is taken) . 

Records 0 and NREC+1 are defined to be identical' to records 1 and NREC 
respectively. Also, pixels 0 and NEL+1 in any record are defined to be the same 
as pixels 1 and NEL in the same record. 
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COMMENTS 


None 

11 LISTINGS 

The listings of DBOUND and MAJOR are attached at the end of this section, 

12 TESTS 

This program was used in removing the extraneous boundary points after 
conversion of the level II GTM of the Mobile Bay region to a level I map. 
Line-printer plots of the maps before and after the application of DBOUND in- 
dicate satisfactory operation of this program. 
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5-5-6 


THICKENING OF DIGITALLY DEFINED CURVES 


1 NAME: TIIICK2 

2 PURPOSE: To modify curv’-e information in scan line intersection 

code so as to represent two-dimensionally thickened curves. 

3 CALLING SEQUENCE: 

CALL THICK2(NTAPI, NTAPO, DC, lY, I\V, NREC , K) 
where 

NT API = logical unit number of input sequential data set. 

NTAPO = logical unit number of output sequential data set. 

DC, lY, rw are work arrays. 

IX and lY should be dimensioned N where N = Maximum number of 
intersections of the thickened curve with (2IC+1) successive scan 
lines (see Section 9). 

IW should be dimensioned (2K+1). 

NREC = Number of records in the input (or output) image. 

K = Number of elements by which the image should be thickened. 

NT API, NTAPO, NREC and K are inputs to this routine. 

4 INPUT-OUTPUT 

The input to this program is a curve stored in SLIC format on 
unit NTAPI. NREC records are stored as J, (DC(L), L = 1, J) in 
FORTRAN binary format where J = number of coordinates in the 
record and IX is the array of coordinates. 

The output of tliis program will consist of NREC records on unit 
NTAPO in the same format as of the input. 

5 EXITS: No non-standard exits. 
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6 USAGE: The program exists in both IBM -7 094 and IBM-360 versions 

and is written in FORTRAN IV. The decks are available with the 
author. 

7 EXTERNAL INTERFACES: 

7.1 System Routines : IBCOM# 

7.2 Other Programs Called : SVSCI, SORT, ELIRPT, THICKl, VMOV 

7.3 External Storage : None. 

8 PERFORMANCE SPECIFICATIONS: 

8.1 Storage : 518 hexadecimal bytes. Including the routines named in 

Section 7.2, the storage required is 14C2 hexadecimal bytes. 

(This does not include the storage needed for the work arrays which 
is data dependent.) 

8.2 Execution Time: Depends largely on the number of points on the curve 
to be thickened and K. A test run on a file with 1753 records and 
approximately 12000 points on the curve took 6.8 minutes with K=2 

on the IBM 360/65 system. 

8 . 3 Restrictions : None . 

9 METHOD: 

The routine essentially consists of thickening in the horizontal direc- 
tion by calls to THICKl and taldng unions of 2K+1 successive.records 
to achieve thickening in the vertical direction. 

The array IW is used to store the number of coordinates after 
thickening in the horizontal direction. IW(1) through IW(2K+1) are 
the numbers of coordinates in the (2K-iT) successive records which are 
combined to form the current record of output.- 
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Initially, the components of IW are all set to 0. Next (K+1) records 
of input are read, thickened in the horizontal direction and all the 
resulting boundary coordinates are stored in array lY. After the 
I’th record is thickened, the number of coordinates corresponding to 
it is stored in I\V(I+K). 

Now, the follomng operations are performed for I+l through NREC. 
The coordinates in lY are niov^ed into IX. IX is sorted, repetitions 
are eliminated and an output record is written. Next, the array" lY 
is left-sMfted by IW(1) words since the first I\V(1) words (which 
correspond to the earliest horizontally thickened input record) are no 
longer required. Next, IW is left-shifted by one word. Now, if there 
are any more input records left, the next input record is read into IX 
and tliickened. The thickened coordinate values are always loaded into 
the right end of lY and the number of coordinates is stored in 
IW(2K+1). 

The routine THICKl operates as follows. It assumes that the input 
array DC is in ascending order. First, it sets IY(1) through 
IY(2K+1) to DC(1)-K through IX(1)+K. This corresponds to thicken- 
ing the first point in IX. After the I’th point is thickened, suppose 
n values have been produced in lY. Then, the values corresponding 
to thickening the (I+l)®^ point are Max(IX(I+l)-K, IY(n)+l) through 
DC{I+1)+K. When an M-vector DC is thickened by K elements using 
THICKl, the number N of components in the output array lY is 
bounded by 

2K + M < N < (2K + 1). M . 

10 COAIM ENTS: None. 

11 LISTING: A listing of THICKl and TH1CK2 is attached at the end of 

this section. 
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12 TESTS: This program has been tested on synthetic data and on the 

boundary data for the TARCOG counties in North Alabama and found 
to work satisfactorily. 


• n 
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C 0*N IY( EXPECTED NUMBER OF VALUES AFTER THICKENING) 
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CONTINUE 
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( I N it )ri . » I,J ) 

IFIJ.EQ.OCO TO 25 

CALL - 50R TM X^*-l-,-J“rJ- rtv T"f^Ti- 

CALL ELIRPT(J,IX) 

25 CONTINUE 

CALL THICKK IXtJ,IY(N)tIW(K21),K) 

N^'t-f-W-tK- 21 -l 

20 CONTINUE 

FORMAT! IXril^i^lA^ 

RETURN 

EffO 
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